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C'est avec un certain pincement au coeur que nous bouclons 
се DAICLIC питёго 10, le dernier de Раппёе mais aussi le dern- 
ier réalisé par l'équipe actuelle d'IDC (C. Poels, M. Vanderme- 
ersch et F. Duluins) Еп effet,celle-ci souhaitant se consacrer 
à d'autres activités (plus de détail dans ce numéro) a décidé 
de se retirer du club DAI, 













Durant ces deux années, nous nous sommes toujours efforcé 
de faire de DAICLIC le point de ralliement de tous les DAI-istes 
» nous espérons que vous avez été satisfaits де nos services 
méme si parfois vous avez dû patienter pour Рип ou l'autre де 
ceux-ci. 









Mais rassurez-vous , tout n'est pas pour autant terminé ! 
Nos amis d' IDC Bordeaux reprennent ]e flambeau en collabo- 
ra-tion avec DCA pour la poursuite de | édition а’ un 
DAICLIC 'New Look! à partir de la France. Nous ne pouvons 
que les féliciter de cette initia-tive et les encourager. 
Tous les renseignements utiles vous sont communiqués dans ce 
numéro. 










Nous disposons encore а’ un stock а’ autocollant 21 LOVE 
MY DAI: 60 FB ou 10 FF les 3, Ф un stock de revues DAICLIC 
pu-bliée jusqu' à ce jour : 100 FB ou 15 FF / piéce ( jusqu à 
P épuisement des stocks). Les logiciels que nous proposions 
( cf liste dans ce numéro sont disponibles jusque la fin du 
mois de janvier à l'adresse habituelle ; ils seront ensuite 
distri-bués par IDC Bordeaux qui assurera également le service 


après -vente! des exemplaires déjà vendus. 








Nous vous remercions pour la confiance que vous, nous avez 
apportées durant ces deux années et nous vous souhaitons de 
passer d'excellentes fêtes de fin d'année, 







Et surtout n'oubliez pas de vous inscrire ou réinscrire poun 
1987 ! 








Ха 


Aedaetiom. 
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A L'INTENTION DE TOUS LES CLUBS ASSOCIES 


For English speakers , read the abstract at the end of the NEWS. 





Afin que subsiste un lien unissant les utilisateurs du DAI , 16 club 
I.D.C.Bordeaux , va poursuivre à partir de 1987 la dure tache accomplie sans 
relache par les actuels dirigeants de I.D.C. 


En effet ‚les deux principaux Clubs Belges : IDC et DAINAMIC changeant leurs 
activités, il était indispensable de prendre les dispositions nécéssaires pour 
continuer nos activités. 


C'est ce que nous avons fait à Bordeaux afin que continue de paraitre DAICLIC , 
et pour assurer aux concepteurs de programmes la continuité des services rendus 
par IDC. 


En résumé sont prévues pour 1982, les actions suivantes 


Continuer de faire paraitre une revue concernant le DAI 
Elle sera congue , éditée , imprimée et diffusée à partir de Bordeaux. 
Elle sera , du moins en B? , trimestrielle. 


Contenu prévu et non exhaustif de cette revue 

% des articles divers sur la programmation du DAI. 

% des montages HARD 

% une information sur les divers livres ‚logiciels ,materiels concernant le DAI. 


Continuer !'édition et la création de nouveaux livres sur le DAI , réalisé à 
Bordeaux , en accord avec les personnes ayant écrit ces livres. 


De même appel est fait aux personnes qui diffusaient leurs logiciels au travers 
de DAICLIC afin qu'ils puissent continuer de méme pour les logiciels existants 
et à venir. Nous respectons les accords passés pour les logiciels avec IDC et 
nous en assurons l'aprés vente. 


Idem pour les constructeurs de matériel ou de cartes ‚ une entente est déjà 
prise pour continuer la diffusion des cartes fabriquées par DCA. 








DAlnamic 37 2 DAICLIC 10 


DAinamic 37 3 DAICLIC 10 











Continuer l'atelier du Club dont l'activité a été florissante еп 86 
rappelons des choses ignorées de beaucoup : plus de 15 DAI , 5 DCR , 3 КЕМ-005 
réparés GRATUITEMENT sans compter encore dans l'atelier 6 DAI ‚3 DCR et 2 
KEN-DOS dont déjà marchent la moitié de chaque catégorie (excuses pour ceux qui 
attendent mais on fait toujours le maxi !) 


Continuer bien sur Bibliothèque et logithèque dant les modalités seront A 
redéfinir et agrandir nos activités télématiques grace au MINITEL 


TOUT CELA sans augmentation de la cotisation ( sauf si les tarifs de 
l'édition venaient à augmenter ) 


i.e. 200 FF pour la France Metropolitaine 








et 235 FF pour la C.E.E. 


i.e. 1500 FB pour la Belgique. 








Envoyez vos adhésions soit 


Par chàque ou mandats rédigés au nom du président trésorier : Mr. DELANNAY Bruno 
Par virement sur le compte du Club 


Banque Crédit Lyonnais , 247 Cours GAMBETTA ,33 400 Talence 
Intitulé : International Dai Club Bordeaux , No = 500578 


Pour la Belgique : 


Mr. DULUINS Fabrice se propose de regrouper les abonnements ‚ vous pouvez donc 
lui envoyer vos sous! 

Compte bancaire de 1а BBL : 371-0356842-45 еп mentionnant IDC 87. 
Si vous voulez cantinuer avec nous , envoyez nous dès aujourd'hui un petit mot 


de soutien et votre cotisation pour 8? car ce n'est que par chacun et pour 
chacun que notre existance a une raison d’être. Si vous ne répondez pas présent 
il nous sera alors inutile d'exister !!! 
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Que chacun pense à l'article qu'il lui serait facile d'écrire avec un minimum 
d'effort , me contacter pour plus de précision quand à la forme à adopter pour 
la réalisation d’un tel article. 


Et surtout ne pas croire qu'un sujet est trop spécialisé pour intére sser les 
autres , ce n'est que grace à une saine curiosité envers les choses que nous 
n'avons pas l'habitude de cotoyer que notre esprit évolue 


Qui oublierait en effet qu'une revue ; lien indispensable entre adhérents , ne 
peut vivre que grace aux articles que VOUS envoyez , n'attendez donc pas que le 
travail vienne uniquement des autres mais participez én investissant un minimum 
de temps pour créer quelque chose. Ce ne sera jamais inutile. 


toute personne ayant un article en préparation. 

recevra gratuitement le super Traitement de texte › амес son mode d'emploi ( 
fournir le support ), grace auquel il faudra nous faire parvenir les articles a 
paraitre. c'est impératif pour une bonne unité de la revue et pour nous 
faciliterla tache !. 


Bruno Delennay. 


ABSTRACT 


The more important is to continue the DAI convivielity and information ! 

Whith DAICLIC we can do that , HARD realisations, NEW soft, all you need to 
enjoy your DAI. ОР course DAICLIC would keep to be written in French but 
allready some of the baoks we publish are written in English , and the software 
service give many soft in the English way. 


So keep on your DAI with I.D.C.Bordeaux 

And send today your subscription for 1987 !! 
For more precisions contact me 
International DAI Club Bordeaux 

с/о Bruno Delannay 

Res. Les Acacias Bt.B3 


Avenue de Saige 
33600 PESSAC (FRANCE) 
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si À 
di "o Ын Utilisateur @ un IBM PC ou сошра- 
л ын -tible pour vos études , votre 
«e "CI £ БЭ profession ou vos loisirs, vous ne 
Ға £z Ч | d pouvez ignorer l'existence de notre 


association EMC PC , qui а pour 
unique ambition de vous aider à 


ж 4 profiter au mieux де votre 
я SS S machine. 
ГА ЕИ RE, A 


Comment ? Tout simplement en mettant à votre disposition un 
maximum de services dont voici une breve description : 











* Les réunions constituent је premier service de ce nouveau 
club. C'est l'endroit Privilégié pour rencontrer d'autres utilisa- 
teurs de PC, pour participer à des achats groupés de matériel, 
bénéficier des prix ‘club’, recevoir une aide technique, des 
informations, voir les nouveaux logiciels, etc... Les membres 
sont bien sur invités à apporter leur matérielmais nous disposons 
déjà de quelques machines. 


Les branches régionales actuelles : 


EMC Carolo : réunions tous les 2ëmes et Чӛтез vendredis du 
mois à partir de 19h45, au local situé Quai de Brabant 21 , face à 
la gare du Sud, à Charleroi. 


EMC Bruxelles : réunions tous les fers dimanches du mois à 
partir de 14h00 et les 3èmes Jeudis à partir de 18h30, au local 
situé rue Montoyer 39, à Bruxelles (Quartier Léopold). 


* Serveurs télématiques : L'emploi du modem sera de plus en 
plus important.. facile et pas cher ! (un modem coûte bien moins 
cher que vous ne le croyez et est très utile 1), Ces serveurs 
permettent actuellement les échanges de messages entre membres du 
club (ou d'autres utilisateurs), le téléchargement de programmes, 
la lecture d'informations régulièrement mises à jour concernant је 
club, les petites annonces, etc.. 


к Programmathëques : Tous les deux mois, vous recevrez une ou 
deux disquettes remplies de programmes venant des quatre coins du 
monde... (soft public des serveurs атегісаіпз,...) 


D'autres services sont bien évidemment encore еп préparation et 
dés qu'ils seront opérationnels, vous en bénéficierez en tant que 
membre du club EMC 1 Par exemple, l'organisation d’un meeting 
européen, une revue EMC, la mise en place de nouveaux serveurs 
télématiques pour constituer un véritable réseau belge {contacts 
déjà pris avec le réseau mondial FIDONET), etc... 


La cotisation est fixée à 1000 Fb et est valable un an à partir de 
la date d'inscription. Elle peut être versée par virement bancaire 
sur le compte 371-0357747-77 (BBL) ou par chéque. Pour les étran- 
Bers, 1100 FB payables par mandat postal uniquement ! 


Pour tout renseignement, contactez un des responsables du club : 


EMC PC EMC PC 

c/o Fabric Duluins c/o Marc Vandermeersch 
4 Allée de la Tour Renard 17 Av. du Vert Bocage 
В - 1400 Nivelles B - 1410 Waterloo 


EMC PC, quand le savoir-faire IDC passe enfin sur PC m 
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UTILISATION DES ROUTINES GRAPHIQUES EN ASSEMBLEUR 


Article original: DAInamic Allemagne. 
Traduction: Frédéric Bacquet. 













L'appel des routines graphiques s'effectue principalement de la fagon suivante: 


RST 5 
DATA хх 


Vaici comment les utiliser: 


DATA 00: Initialisation MODE О Entrée: HL-adresse limite. 
DE-pointe la liste des paramétres 
pour l'initialisation 
Sortie: Tous registres modifiés 


DATA 03: Affichage d'un caractère Entrée: А=соде ASCII du caractere 
Sortie: ABCDEHL préservés 
Бі Су=1: caractère ignoré 


DATA Оё: COLORT Entrée: HL-pointe les 4 octets de 
couleur (les 4 premiers bits de 
poids fort sont ignorés) 

Sortie: Tous registres préservés 


DATA 09: CURSOR Entrée: H,Lecoordonnées Ү,Х 
Sorties: HDCEHL préservés 
Бі Суг1: OFF SCREEN 


DATA OC: CURX, CURY Entrée: Rien 
Sortie: Н, =соагдоппвев Y et X du 
curseur, 


DATA OF: modification du curseur Entrée: HL-pointe infos pour le curseur 
Sortie: Tous registres préservés 


DATA 12: clignotement du curseur Entrée: Rien 
Sortie: Tous registres préservés 


DATA 18: GETC Entrée: DC-position sur la ligne courante 
du caractère à lire sur l'écran 


DATA 18: MODE x Entrée: A-code pour le MODE 
Sortie: ABCDEHL préservés 
Бі Су=1: QUT OF MEMORY 


DATA 1E: COLORG Entrée: Hiepointe les 4 octets de 
couleur 
Sortie: Tous registres préservés 


DOT Entrée: C,Hlecoordonnées Y.X 
Ascouleur 

Sortie: Tous registres préservés 
Si бу=1: COLDR NOT AVAILABLE 
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DATA 


A 
Ee 


DRAW Entrée: B,DE-Y1,X1 
C,HLzZX2, YE 

A-couleur 

Sortie: idem DOT 





DATA 24: FILL Entrée: idem DRAW 
Sorties idem DOT 





DATA 27: SCRN, ХМАХ, ҰМАХ Entrée: CHL: coordonnées Ү,Х 
Sortie: A-couleur du point testé 
B,DE-YMAX, XMAX 
CHL préservés 
Si Cy=l: erreur 





initialisation de l'éditeur Entrée: Rien 

Sortie: HL-position du curseur 
AF modifiés 
ЕСПЕ conservés 






Entrée: В=сагаскеге à insérer 
Sortie: ABCDEHL préservés 
Si Су=1: plus de place 






















































Récapitulatif des logiciels proposés par IDC software : 


Ces logiciels sont disponibles via IDC jusque fin 1986, ils seront par 
la suite disponibles auprès а’ IDC Bordeaux qui, comme vous le savez 
maintenant, va reprendre en charge la revue DAIclic, avec la 
participation active de DCA/IDC Paris. 


J e u x 
QUIX : le STYX, vous connaissez ? п s'agit de remplir је plus 


rapidemment possible une zone de l'écran. QUIX est un superbe jeu 
entièrement écrit en langage machine par Pascal Janin, et est livré 
avec un mode d'emploi qui explique comment récupérer les fonctions 
"PAINT" et "SPRITES" générées par QUIX. DCR 8 CAS : 499 Fb. 


OTHELLO : tout le monde connait maintenant le jeu d'OTHELLO. Savez- 
vous que la version que nous vous proposons, écrite par Christian 
Poels, à été classée Чете au concours d'Othello organisé par la revue 
“L'Ordinateur Individuel" il y a 2 ans maintenant.. 2 Inutile donc де 


vous signaler que ce programme, à la présentation superbe, possëde des 
qualités de jeux dignes des 'grands'.. DCR et CAS : 800 Fb. 


SUPERCASTEL : Pour ies aventuriers en herbe qui n'ont pas peur 
d'aller faire une petite ballade dans un imense chateau de 3 


étages..remplis de monstres. (ес de trésors... faut quand méme un 
peu motiver Paventurier en question H) Rapide, humoristique...et 
tout et tout ! DCR : 800 Fb (par В. Sip) 








een 


DAI RUNNER : Vous prenez un Apple// et le programme LODE RUNNER, 
jeu super-génial.et vous mettez le tout sur un DAL. Cela vous donne 
un jeu trés rapide, avec 50 niveaux de jeu différents.. la passion ! 
DCR : 499 Fb. (par Mr Stransky) 


DAITONA : Vous aimez rouler vite et faire la course avec les autres 
? Sachez que cela peut étre dangereux.. sauf si vous faites cela avec 
votre DAI et sur un circuit privé.. DCR & CAS : 499 Fb. (par M.Billot) 


Utilitaires 


EDITEUR DE DESSINS : de loin le best-seller d'IDC software. Ce 
programme, qui a connu un succés sans précédent, reste toujours aussi 
valable : tout pour dessiner et corriger ses gaffes 1! Fonctions 
PAINT (mélange de teintes), CERCLE, RECTANGLE, et plein plein 
d'avantage. en un mot: le meilleur ! (раг W. Costa) : DCR 8 CAS TOOFD 





MAILING LIST : fichier me voici. Idéal pour tenir à jour votre 
fichier , correction, impression, étiquetage, recherche, tri. j'en 
passe et des meilleures : DCR & CAS : 999 Fb (par Ch. Poels). 


DAILINK : Allo 2 Pour communiquer avec tous les serveurs du monde, 
ou entre deux DAI : DAILINK : vite fait, bien fait 1 (compatibilité 
avec les fichiers du traitement de texte DAIWORDSTAR). DCR 8 CAS:999 Fb 
(par Ch. Poels) 


DAITEXT У.21 : Tout en un ! Traitement de textes puissant, adapté 
aux imprimantes du type EPSON (c-a-d la plupart des imprimantes !) et 
comprenant un programme télématique complet permettant l'échange de 
textes par téléphone. Extra quoi ! DCR, CAS & KENDOS : 900 Fb. 

(par Alain Mariatte) 


СОМ : Toujours les télécommunications... Ісі, le programme le plus 
complet existant sur le DAI.et livré sur EPROM (chargement hyper- 
rapide !) Plein de fonctions : éditeur, annuaire, DCR 8 KENDOS 
1500 Fb (par E. Choppinet) 


DAIBASE ІТ : Le super traitement de fichier sur DAI ! On n'a pas 
encore fait mieux sur DAT ! (les commandes ressemblent à celles du 
célèbre DBASE II) KENDOS et УС1541 : 1800 Fb. (par Ch. Poels) 


DISKWIFE : Encore un logiciel en EPROM.. sauvegarde des directory, 
'chipotage! aisé du directory, et plein d'autres avantages... 
KENDOS : 1500 Fb (par X. Dreze) 


X-DIR : Heureux possesseur de KENDOS : enfin toute la liste de vos 
logiciels classée et accessible !! Le reve..et plus de désordre dans 
les disquettes.. (je suis sur que vous n'en avez pas !) 

KENDOS : 1000 Fb (par D. Boiteau). 


Ceci termine la liste des logiciels vendus par IDC software, j'espère 
qu'IDC Bordeaux saura reprendre le flambeau et proposer encore plein 
de beaux nouveaux softs à tous nos membres H 


Marc Vandermeersch. 
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Exemple d'utilisation du bus DCE 





Jean-Jacques BOUTAUD, ALFORTVILLE (F) 
LDC. BORDEAUX 


Commande d'un "ROBOT MOBILE" avec capteurs de contact: 





Avec un minimum de HARDWARE, on peut commander par le BUS DCE plusieurs 
moteurs C.C. (courant continu): ici deux, mais il est possible d'en piloter jusqu'à vingt- 
quatre. 


1, Un peu de théorie sur le BUS DCE. 








L'élément principal est un PPI 8255 dINTEL. (PPI : Programmable Parallel 
Interface). П possède quatre ports de huits bits: un рогі de commande qui permet de 
choisir le mode de fonctionnement du PPI et trois ports d'entrée/sortie de données А B et 


.. Le port de commande: il existe trois modes de fonctionnement du PPI. Nous allons 
utiliser le mode 0 (le plus simple) qui permet le transfert de données sans nécessiter 
d'acquittement (HANDSHAKE) ou de signaux de contrôle. 


Les ports d'entrée/sortie : les ports À et B sont positionnés en entrée ou en sortie 
(pas de mélange possible), Le port C est divisible en deux: Low et High: ce qui permet 
quatre entrées et quatre sorties simultanément. 


Rôle des huit bits du port de commande : 


вид Port С Low en entrée (1) ou en sortie (0) 

bit Port Вел entrée (1) ou en sortie (0) 

bit2 Port de commande mode 0 (0) mode 1 (1) 
bit3 Port С High en entrée (1) ou en sortie (0) 
bit4 Port À en entrée (1) ou en sortie (0) 


bit 5 0 1 x 
mode 0 model mode 2 
bit6 (0) (0) (1) 


bit7 Toujours à 1 sauf pour le mode 2 
Maintenant les adresses du BUS DC E : port de commande FE03h 


port À FEOOh 
port B FEO ih 
port C FE02h 


(Voir le manuel pages 135-136). 


Résumons: nous voulons commander deux moteurs C.C. par le Port À et placer deux 
capteurs sur le Port C Low. 


bitO Port C Low en entrée = 1 

011 Port Binutilisé 

bit2 Рогі de commande mode 0 = 0 
bit3 PortC High inutilisé 

bit4 Port À en sortie = 0 

bit5 mode0-0 

bité mode0-0 

bit7 шобе0-1 
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Nous mettrons à zéro les bits inutilisés (1 et 3). Nous devons donc есгіге 81h à l'adresse 
FE03h pour pouvoir lire је contenu de l'adresse FEO2h (Рогі C Low) et écrire à l'adresse 
FE00h (Port А). 


Моца pour la théorie! 
2. Le hardware: 


If est volontairement très simple et très rustique, pour être facilement réalisable 
à moindre frais. On peut très bien remplacer les transistors 2М 2222A par des circuits 
collecteurs ouverts comme 1e 7406, par exemple. Pour commander les deux moteurs, trois 
bits sont nécessaires. Le premier alimente ou non les moteurs, les deux autres déterminent 
leur sens de rotation : 


BITO BITI ВТ? 
0 X X  pasd'alimentaion, moteurs arretés. 
1 0 0 les deux moteurs tournent en marche avant. 
1 1 Î {es deux moteurs tournent en marche arrière. 
1 0 1 moteurs en sens contraire, tournent à droite. 
1 1 0 moteurs en sens contraire, tournent à gauche. 


Suivant la partie mécanique, le ROBOT peut tourner sur place. 


Mais le problème majeur reste: ce "ROBOT MOBILE" est malheureusement relié au 
DAI par un câble. Pour le supprimer, on peut par exemple utiliser l'électronique d'un 
véhicule radiocommandé (on en trouve de très bien à 250FF). Ii faut choisir un modèle 
fonctionnant en tout ou rien et remplacer les manettes de commande par les relais du 
montage. On a ainsi supprimé le câble. Mais comment faire pour les capteurs ? Il faut 
utiliser le même principe, еп mettant cette fois l'émetteur dans le robot et le récepteur sur 
le BUS DCE. 


3. Le programme BASIC: 


H est très simple, constitué de sous-programmes facilement aménageables pour 
pouvoir s'adapter à vos désirs. Par exemple pour ajouter d'autres commandes (listing des 
déplacements sur imprimante par exemple), ou bien d'autres capteurs et même d'autres 
moteurs (voir les schémas). La limitation à seize commandes est ici une simple question 
d'affichage d'écran, et peut être augmentée (jusqu'à 256). A noter que la sauvegarde et le 
chargement sur cassette sont plutôt symboliques, à vous de les adapter pour DCR ou 
autres. N'utilisant moi-même que des cassettes, je n'ai donc aucun probléme de compatibilité 
avec le BUS D.C.E. Vous devrez peut-être changer de рогі? 


Voilà, à vos claviers et fers à souder. 
Sources sur le bus DCE: 


DAINAMIC 83-18, pages 335-342 (en FLAMAND ll). 

MANUEL DES INTERFACES (Me GRAW HILL). 

Eten général sur les ROBOTS, interfaces, capteurs etc... 

MICROPROCESSOR BASED ROBOTICS & ADVANCED ROBOT SYSTEMS de Mark L 
ROBILLARD (pratique et trés complet, mais en anglais). 

MICROS et ROBOTS: revue francaise, ne paraissant plus. 
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REM 

REM seer ROBOT 94,4 01. 1986 живж 

REM 

COLORT 0 0 0 O:CLEAR 4000 

FOR ñDRZ2=023S TO #24A:REM ROUTINE VIDEO INVERSE 

READ OCTZ:POKE ADR, ОСТА :МЕХТ :ВЕМ РОКЕВ236, IFF = INVERSE 
POKE #70, #30 :РОКЕ 871,82:ВЕН POKE#246, #00=NORMAL 

POKE 46C,435:POKE #6D,#2:REM VOIR DAICLIC Not page 55 
DATA #5, ACD, 645, #02, AF4, #23, HFD, ICS 

DATA Ae, BCD, #45, #02, IF 4, #03, #89, #09 

DATA AE, 800, #32, 076, #00, #29 

POKE #75, 32:РЕЈМТ CHR$(12):MODE 0 

POKE ФРЕОЗ, 081:РОКЕ #FE00,0:REM INIT. BUS DCE 

AVÉ= "AVANT" ARS=ARRIERE" 

GOTO 1580:REM PRESENTATION 

REM 

REM эж. ENTREE DES ORDRES өв 

REM 

PRINT CHR$(42) 

PC2=PS2:IF PCX>1 THEN GOSUB 930 

ТЕ PC2=46.0 GOTO 380 

CURSOR 5,3 

PRINT "ENTREZ L'ORDRE";PCz:" :LA DIRECTION ET LA DUREE 4:5РС(6) 
CURSOR 50,3 

INPUT RP$:M$=LEFT$(RP$,4):Lz=LEN(RP$) 

IF M$«»"à" AND M$<>"R" AND M$c»"D" AND MCG" AND M$<>"S* AND Moc»"F" 
GOTO 220 

IF М$="Е" GOTO 390 

МРС) f$ :DSSMIDSQRPS, 4, 2-1) 

IF ASC(D$)«49 OR 85С(09)>57 GOTO 220 

DCD Ae. (05) 

GOSUB 630 

Y2=20-PC2:CURSOR o, Yz 

ІРОРСИ»9 THEN V$="u;GOTO 350 

У: ef H 

PRINT " ORDRE" Vë РС: "; 
Debt äu 7, 0 

GOTO 240 

Жүгі 25,12:PRIMT "MAXIMUM 15 COMMANDES, " E 
МРСИ) НЕ" б АРС Ae = 
PSZ=PCZ d m 


"sMS0PC2) ;DZ(PC2) 


REM seek EXECUTION жек 

REM 

PRINT CHR9(42):PC2=4 

IF PCZ>x9,0 THEN V$="";GOTO 490 


ұдай " 
ОРрВЕ" 305 PCX": 






PRINT " 
IF Mé(PCz)s"F" GOTO 530 
60818 630 
PCH=PCH+4 0010 470 
CURSOR 25,12:PRINT "FIN DES COMMANDES, " 
GOSUB 850 


ОСЫ) зри АРС») 


REM we REMISE A ZERO зөв 
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REM 
M$(I2)="Fš;pS2=4:RETURN 
REM 


REM s COMMANDE DES MOTEURS жек 
REM 


IF Mé(PC4)="A" THEN Px=1:G0TO 680 

IF MÁ(PCz)-"R" THEN Pz-7:60T0 680 

IF MS(PCz)-"D" THEN P2=3:G0TO 680 

IF MÉ(PCu)»"G" THEN P2=S:GOTO 680 

IF MS(PCz)e*S" THEM Рихо 

POKE ӨРЕОО,РХ 

FOR Југа TO DZ(PC2) 

FOR Lz=4 TO 20 

IF РЕЕК(#РЕО2) IAND 4<>0 THEN ñ$=0Vé:GOTO 290 
IF PEEK(HFEO2) ТАМО 2<>0 THEN ñŠ=ñRŠ:GOTO 790 
NEXT 1% 

NEXT JN 

POKE #FEOO, 0 :RETURN 

REM 

REM aan SOUS-PROG. CAPTEURS жк 

REM 

POKE 4FE00, 0 

CURSOR 25, 12:PRINT “PALPEUR D'ESPACE a :86:8 EN ACTION" 
WAIT TIME 450:G0T0 4890:REM RETOUR AU MENU 
REM 


REM sx MESSAGE жәме 
REM 


CURSOR 17, 1:РОКЕ 8246, ФЕР 

PRINT "FAÎTES RETURN POUR CONTINUER" 
POKE #246, #0 

IF GETC<>13.0 0010 880 

RETURN 

REM 

REM же» AFFICHAGE tek 

REM 

FOR Ize1 TO PC2:Y2#20-IZ:CURSOR 0, YZ 
IF 1%29.0 THEN V$s"":GOTO 960 

yes" н 

PRINT " ORDRE" ës 13": 
RETURN 

REM 

REM se EDITION жек 

REM 

PRINT CHR$(12) 

FOR Isi TO PCZ 

IF 1259.0 THEN V$==";GOTO 4050 
V 


28 d 
ORDRE" :48:12:5: 


PRINT * 

NEXT 

CURSOR 0, 1:РОКЕ 4246, BFF 

PRINT "TAPEZ LE NUMERO DE L'ORDRE A CORRIGER, 00 BIEN о POUR SORTIR" 
POKE 4246, 10 

CURSOR 25, 42: INPUT Oz:IF би оРСХ GOTO 4400 

IF 0Х-0 THEN RETURN 

Yz=z20-02 

CURSOR 0,4:POKE 4246, РЕ 

PRINT " TAPEZ LE NOUVEL ORDRE EN DEUX FOIS,OU BIEN o POUR SORTIR " 
POKE 4246,90 


"ВИХ DAC I2) NEXT 


IMC IO ИСТА) 
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4460 
1470 
1480 
41490 
1200 
1240 
1220 
1230 
4240 
1250 
4260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1500 
4540 
1420 
1430 
4440 
1450 
1460 
1370 
1480 
1490 
1500 
1510 
1520 
1530 
1510 
4550 
4560 
1570 
1580 
1590 
4600 
1610 
1620 
1630 
1640 
1650 
1660 
4670 
4680 
4690 
1700 
1710 
1720 
1230 


CURSOR 42,Y2:INPUT W9(025 

INPUT Dz(Du) 

GOSUB 630 

GOTO 4090 

REM 

REM жән SAUVEGARDE жж 

РЕҢ 

Nz=0 

PRINT CHR$(12) 

CURSOR 24,145 :PRINT "sse SAUVEGARDE scri? 

PRINT :PRINT :PRINT :IF 0.0 GOTO 4300 

PRINT TAB(5);"DONMEZ UN NUMERO ñ CE МООЧЕМЕНТО »0 у: я: 
INPUT МИ:ТЕ Nzs0.0 GOTO 4280 

GOTO 1240 

PRINT ТӨВС5) 5 MOUVEMENT No :":NMz:PRINT 

PRINT ТӨВ(5);"МЕТТРЕ LE CASSETTE SUR 'RECORD',PUIS TAPER SPACE!" 
CALLM 4D6DA 

SAVER Ме "No DU MOUVEMENT" 

SAVEA Mó "MOUVEMENTS" 

SAVEA Dx "DUREE" 

RETURN 

REM 

REM жәе: CHARGEMENT жәе 

REM 

N02=0 

PRINT CHR$(42) 

CURSOR 20, 12:PRINT "s CHARGEMENT sere" 

PRINT :PRINT :PRINT ;IF НО 0.0 GOTO 1470 

PRINT TRB(5);"Mo DU MOUVEMENT A CHARGER >0 >: "; 
INPUT MOZ:IF М0у-0.0 GOTO 1550 

СОТО 4440 

PRINT TRB(5);" MOUVEMENT Mo 2" ;NOZ:PRINT 

PRINT TAB(S);"METTRE LE CASSETTE SUR 'PLAY',PUIS TAPER 'SPACE:" 
CALLM 40608 

LOADA HS "Мо DU MOUVEMENT" 

IF MA 0 GOTO 1500 

LOñDñ M$ "MOUVEMENTS" 

LOADA DZ "DUREE" 

RETURN 

REM 

REM sek TITRE seek 

REM 

POKE #BA2D, A6 :CURSOR 0, 42 :PRINT "ROBOT" 
AS=CHRS GHD) 189-089 

FOR Фйа0 TO 58:6%=ñ$+B$:NEXT 

COLORT 0500 

CALLM #DEDA 

PRINT CHR$(12) :COLORT 0000 

CURSOR 0,22:PRINT 88:08508 0, 18:РРІМТ A$ 

CURSOR 0,8:PRINT A$:CURSOR 0,3:РРІНТ аб 
С94СНБЭС04034СНВ5(810) FOR “уза TO 24 

CURSOR 0, YA:PRINT C$:CURSOR 58, YZ:PRINT C$:NEXT 
CURSOR 16,20:PRINT "s LES COMMANDES DU ROBOT зак" 
CURSOR 6,16:PRINT "SIX COMMANDES SONT DISPONIBLES POUR DEPLACER" 
CURSOR 6,15:PRINT "СЕ ROBOT:A POUR AVANCER.” 
CURSOR 15,15 :PRINT "R '' RECULER.” 

CURSOR 45,13:PRINT "D '' TOURNER A DROITE." 
CURSOR 15,42:PRINT "G '' TOURNER À GAUCHE," 








1750 CURSOR 15,44:PRINT "S ': — STOPPER L'EXECUTION, " 
1250 CURSOR 15,10:PRINT PF 15 FIN DES COMMANDES," 
1760 CURSOR 6,6:PRINT "CES COMMANDES DOIVENT ETRE SUIVIES D'UN NOMBRE" 
1770 CURSOR 6,5:PRIMT "DETERMINANT LA LONGUEUR DU DEPLACEMENT.EX :042"; 
1780 COLORT 0500 

1790 САШИ #D6DA 

1800 PRINT CHRS(42):COLORT 0550 

4840 DIM Dz(46.0), M5(16. 0), (0. 0) :PSZ=1 

1820 REM 

1830 REM жек MENU жак 

1850 REM 

1850 POKE #88, #50 :РОКЕ #88, #BE 

1860 CURSOR 17,23:РВІМТ lacoste) 
1870 PRINT ТӨВС12): “нөж COMMANDES DU ROBOT set 

1880 PRINT ТАВС42) z'bioticietoietoietotetotototototutotutofatopateaten й 

1890 PRINT CHR$(12):FOR ñZz=4 TO 4:PRINT :MEXT 

1900 PRINT " 1.ENTREE DES COMMANDES, " 

1910 PRINT я 2. EXECUTION. " 

1920 PRINT " 3.REMISE & ZERO." 

1930 PRINT " A, EDITION. " 

1950 PRINT * 5. SAUVEGARDE., " 

1950 PRINT * 6. CHARGEMENT, " 


1960 CURSOR 23, 1:РОКЕ #246,8 

1970 PRINT "TAPEZ VOTRE CHOIX" 

1980 POKE #246, #0 

1990 POKE #75, 1:CURSOR 4,8: INPUT C$ 


2000 ІР 05С(С5)<49 OR 85С(05))54 GOTO 1990 


2010 Ce=VAL(CS) 
2020 IF C#=2 AND PC#=0.0 GOTO 4890 


2030 ON Сх GOSUB 190,460,590, 1010, 1230, 1400 


2040 GOTO 1890 












































REM COULEUR SUPPLEMENTAIRE DANS LR MODE 4 COULEURS 
REM METTRE LES COULEURS DANS LE REGISTRE A COULEURS 
REM CHOIX DES 4 COULEURS A, B, C, D 

COLORT 8 0 3 14 


REM 
REM COUL. D& FOND, COUL. DU ТЕКТЕ, COUL. DE POND, COUL. DU TEXTE 
REM 1 2 5 4 


REM 
REM METTRE UNE LIGNE DANS LE MODE 4 COULEURS 


REM METTRE LE 

РОКВ Хи 1,241 

REM 

REM POSITION SUIVANTE POUR LA LIGNE 
MRET XI 


REM 

REM METTRE LIGNE 1 EN MODE 4 COULEURS ET REPRENDRE 1, ANCIENNE 
LEUR 

REM REM COULEUR D = 14 («еру 


REM LIGNE 3 42 
PORE 28577,27А 43 PORE b46B,7A 
FOR Х1-78576-132 TO 98575-2 STEP 2 44 REM 
POKE ХУВЕР 45 REM ANCIENNE COULEUR 
POKE Xk 1,977 46 РОЕЕ "B46A "FD 
NEET 47 REM 
REM LIGNE 2 48 REM MEME CHOSE QUE LA LIGNE 26 
PORE 9В48127А 50 РОВХЬь9 46А-132 TO "B46A-2 STEP 2 
COULEUR D « ер 51 РОКЕ ep 
POKE #B4F0,°FF 52 POKRIM142 
53 КЕКТІ! 


REM 
кы METTRE LA COULEUR CHOISIE AINSI QUE LE CARACTERE EN LIGNE 2 


REM 

REM BOUCLE POUR CHAQUE POSITION DE LA LIGNE 2 
FOR Xic*D4F0-132 TO ВАРО-2 STEP 2 

REM 


REM 
REM METTRE LES COULEURS A ET B EN LIGNE 0 
REM 


POKE °B385,°7A 
FOR Х°В3Е4-132 TO °В3Е4-2 STEP 2 
POKE Х10 
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60 РОХЕХЬ1243 
31 REM METTRE LA COULEUR DE FORD 61 REET EI 
32 PORER 
33 EEM 
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3> Enlevez les 7 vis téflon qui maintiennent la carte dans le boitier 











la carte n'est plus solidaire du boitier, alors, retournez-là ! Vous 

avez maitenant le circuit imprimé côté soudures, reprérez А nouveau 
par Pascal Janin, encodage Marc Vandermeersch Iceë, 

ATTENTION : vues côté soudures, tes pattes du circuit intégré 


ont leurs numéros inversés ! 
Décidément, je me complais dans la monstruosité ! 


Je retourne avec plaisir le couteau dans la plaie, mais pour cette 
fois, c'est pour vous donner је remède radical à се fameux vidéo-bug 
qui a intrigué E. Boucheron (DAIclic 4) et dont jai donné les causes 
dans DAIclic 6 (cet article est donc réservé aux fidèles lecteurs de 
DAIclic  !) 





Attention, une modifications ULTRA SIMPLE du HARD du DAI s'impose, 
aussi tous les émotifs qui „trémissent en voyant cóte-à-cóte un тег а NO U-TURN VIDEO 
souder et leur DAI préféré feraient mieux de passer leur chemin.. 

Quand aux autres, à qui une opération "а DAI ouvert" пе fait pas peur, 

ils ne seront pas déçus ! 





4» Cablez l'interrupteur comme suit 


Position ГА] 


Reprenons : comme matériel, il vous faudra 











- un inverseur, 1 circuit deux positions, 5 FIL 2) 
-03 bouts de fils de petite section. FIL 3 ei (8 
- de la soudure. Position 


- fer 40 W maxi, pince coupante, etc... 


e et c'est tout M 


L'opération va se dérouler еп plusieures étapes m 
расса S> Côté soudures, il у а une liaison qui joint la patte 13 а la patte 9 


1> Débranchez tous les cordons reliés au DAI et enlevez le couvercle : de IC24 : c'est une piste très fine et très facile à repérer, qu'il 
vous avez maintenant le clavier en face de vous et contemplez d'un oeil vous faut couper (interrompre) proprement avec un cutter, par 
attendri la carte électronique de votre ordinateur préféré ! exemple. 

2» Il vous faut maintenant repérer le circuit numéro 24: c'est celui à 6> Maintenant, il faut disposer d'un fer à souder avec une pane très 
14 broches, du type SN74LSO2 (4 portes NOR) immédiatement en haut à fine ! Ceci fait, opérez comme suit 

gauche de ГЕРВОМ de caractères vidéo, facilement reconnaissable par sa 

taille (24 broches) et sa position sur la carte : c'est le plus gros - Soudez le fil X а la patte 9... 

circuit en haut et le plus à gauche : - Soudez le fil Y à la patte 13. де 1024 


- Soudez le fil Z à la patte 1... 


Il faut souder très proprement puisque la surface de soudage est 
PRISES | Bus Dee extrëmement réduite. (une pastille de circuit imprimé). 











CARTE T> Retournez maintenant la carte tout en laissant courrir les #ils et 
ViDEO ALIM. Pinter vers l'extérieur de la carte. (pour éviter un court circuit 
avec un composant de la carte.) Refixez les vis téflon, remettre le 

Ic 24 3 УН capot du DAT et les fiches. Tout est prêt ! 
mson | [| екон Allumez le РАЇ еї constatez que, quelle que soit la position А ои В де 
CoNBENSAT&UR| pad [VIDEO Pinter, l'affichage à l'écran reste inchangé. (dans le cas contraire, 
а ¿Pu 8080 : il faut vérifier vos cablages et soudures.) Il doit en être de même 
35 5464 Я dans tous les modes graphiques. (faire MODE X, puis manoeuvrer 

CAL UNE Қақ 


Pinter pour vérifier). Ме pas faire DRAW, DOT ou FILL pour 
l'instant, mais vérifier qu'un changement de couleurs par COLORT ou 
COLORG n'est pas altéré par une position quelconque de Pinter. 














" Passons maintenant aux choses sérieuses... 
CLAVIER 


Rentrez à nouveau le petit programme BASIC paru dans mon article 
gd "EXPLICATIF" du DAlclic 6, page 28. 
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- Basculez Pinter sur la position À : il est en position normale. Еп 
faisant RUN, vous devrez constater les nombreuses vidéo-bug dont je 
vous avais fait l'éloge. 


- Basculez l'inter sur la position B : il est en position "correction" 
et là, ô miracle, l'afficahge se rétablit : la VIDEO-BUG а disparu ! 


Dorénavant, le changement de couleur du fond en mode 16 couleurs ne se 
fait plus dés qu'un "obstacle" (bit à 1) est rencontré, mais bien 
dés que l'on change de groupe de 8 pixels. ( se référer à mon article 
du DAICLIC 6, p. 27-28). Le point noir parasite rencontré par 
E.Boucheron doit complètement disparaître |! 


Alors, est-ce un assainissement total de la vidéo en mode 16 couleurs ? 
Hélas NON ! Car figurez-vous que les routines DOT,DRAW et FILL du BASIC 
prennent en compte la vidéo-bug et leur comportement devient aberrant 
lorsque Pinter est en position B t! 


Tapez le petit programme BASIC suivant 


10 MODE 5 
20 DRAW RND(XMAX)RND(YMAX) RND(XMAX)RND(YMAX) RND(16) 
30 GOTO 20 


Passez en position A : faites RUN, et tout se passe normalement ! 
Passez en position B après avoir pressé BREAK : aie ! çà se gâte! 

П my a plus que des traits à l'écran, mais aussi des pavés 
horizontaux parasites et des changement de couleur intempestifs. 

Les erreurs deviennent plus évidentes si vous remplacez la ligne 10 par 
10 MODE |, le changement de position de Vinter fait apparaître 
nettement les différences ! 


En conclusion 


La modification HARD proposée apporte effectivement une solution à la 
Vidéo-bug, mais c'est remplacer un mal par un mal puisque les routines 
DOT, DRAW et FILL tiennent compte de cette vidéo-bug et "déconnent" еп 
position B ("correction") de Pinter. 


Alors, finalement, се vidéo-bug ne peut être résolu par la définitive. 
Ce que je propose, c'est de préciser pour chaque programme quelle est 
la position де linter la plus appropriée ! (normale ou correction) car 
en effet, selon le graphisme demandé, tel ou tel programme en 16 
couleurs demandera le vidéo-bug ou поп. Jusqu'ici, tous les 
programmeurs DAI-istes ont du faire avec, mais si le choix devient 
possible, il deviendrait souhaitable que chaque DAI dispose de cet 
interrupteur très facile à installer, et méme (pourquoi pas !) pouvoir 
le manoeuvrer par un POKE directement dans le logiciel C'est ultra- 


simple à concevoir. 
J'attends vos réactions dans DAIclic, et vive le DAI ..0Ё course ! 


P. Janin. 


PS: La correction apportée par ја position B de linter joue uniquement 
sur la couleur de fond en mode 16 couleurs. 

Pour vous en convaincre, chargez et lancez DARK CRISTAL (si vous ie 
possédez !) et vérifiez que le graphisme n'est pas а11ёгё par 1а 
position A ou B de l'inter : les auteurs du programme ont simplement, 
pour colorer leurs figurines en animation, joué sur les coleurs de 
forme (bit à 1) et non les couleurs de fond (bit à 0); peut-être à 
cause de cette fameuse vidéo-bug ??? 
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DAIQUIRI, exclusivité DAICLIC, par C. Morin. 


N'avez-vous jamais pesté devant une liste qui se déroule trop vite 
devant vous ? Vous n'avez pas retrouvé un détail aprés piusieurs 
passages, ou alors, il faut arrêter l'affichage trés souvent. Pour 
pailier à cet inconvénient la routine ci-jointe vous permet de modifier 
à volonté la vitesse d'écriture. Le principe est simple, modifions 
POCTET dtFFO5 contenant la vitesse de la sortie 88232, 


Utilisez la fléche vers le haut pour augmenter la vitesse et la flêche 
vers le bas pour la diminuer. 


Cette routine fonctionne en BASIC (LIST, PRINT) et aussi en utility 


(D adr adr) Les deux touches reprennent reprennent leur #onction 
normale en mode édition. 


Après réservation de la place mémoire, recopiez en utilitaire (S) les 
codes de la liste ci-jointe. Lancez la routine avec 6300 ou CALLM#H300, 
revenez au fonctionnement d'origine par 62Ғ0 ou CALLMH#2F0. 


Deux octets sont utilisés en mémoire auxiliaire 
H2FE : compteur 
H2FF : image de #FF05 


Vous constaterez une difficulté à choisir la bonne vitesse en essayant 
de la baisser à partir de la vitesse maximale. Maintenant plutot la 
flèche "en bas" et vous obtiendrez la vitesse minimale, ensuite, 
appuyez de brefs instants sur la flèche "en haut" pour l'augmenter 
progressivement. 


Par Claudius Morin Са 


ПЕРО SFF VITESSE VARIABLE 











те 15 F D 
H2 їн = :1 
08 F5 = z 
EE 2H n 4 
ЗЕ бі й 40 
40 CR 3 2 
35 CE EE 
C1 Fi DU 
F? FF се 
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OUI HESSIEURS DAMES 
TE Vous LE bis TA 
FAILU DEVENIR LE 
HAITRE DU номљє... || 
СУР LONGTEMPS DE СА- 


ХУ) 


















PLUSIEURS ANNEES 
AVAIENT CONDUIT À APPROCHER DE PLUS EN 
[PLUS LE MONDE FPSCINANT DE, L'INTEL- 
У LIGENCE АЕТ СЕЧЕ... УЕ ТА\5 ALORS 


















SUR LE POINT DE LANCER Мом 
PROTOTYPE QUI MAAT, PERNETTRE POUR, 
LA PREMIERE FOIS, А UNE MACHINE D 
ÉMULER LES FONCTIONS ESSENTIEUES 
Гор СА PENSEE HUMAINE Q TO 


IN ORAGE ғіт GRIUER MA LAMPE DE 
CHE VET , MZ EMP EBT ыма BE TROUVER 
LA TOucuc CENTER. J'AI SU ALLER МЕ 
DUCHER IGNORANT QUE CETTE NUIT LÀ 
ce E. EX ТОСЕ 
= = … ORA o % ) 
а и EN Дд DUN Coup 


N HOM M ЕТ LA бих 
SERAXS. V AN MA LAMPE RE 


E Ber =: 
E 
D 


DCA Co PAANI AOD rest dt 
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іш 


BELLIERE 


PIERRE 
C/O B, D. ROME 


FRANCIS 

к 

DANIEL 
FREDERIC 
SERGE 
CLAUDE 
PHILIPPE 
PATRICK 
PASCAL 
JEAN-CLAUDE 
405 

MARCEL 
FABIEN 
MICHEL 
DONIRIQUE 
JEAN FRANCOIS 
DIDIER 
SERGE 


PHILIPPE 


YVES 
JEAN-JACQUES 
THIERRY 
HICHEL 
ADOLPHE 
MICHAEL 
CHRISTIAN 
DONIBIQUE 
PHILIPPE 
ETIENNE 
HUBERT 





ПК members 





Adresse 


RUE PLAINEVAUX 81/33 
RUE PIERRE SEVRE 9 
RUE HADEHOISELLE 56 


AVENUE DE LA DIVISION LECLERC 


199 

CHEMIN DE FOUBERTSART 104 
AVENUE DE LA REPUBLIQUE 28 
RUE DES ASPRES 2 

ALLEE CLAUDE DEBUSSY 5 
RUE DE BRASSINE 3 
QUARTIER DE PAOUMAS 
AVENUE DES ETANGS 34 

RUE EDOUARD PONS 10 

BLD DE FINLANDE 35 APPT 243 
AV. DE L'EXPOSITION 317 
AVENUE DES DAGUETS 9 
PLACE BAY BUSET 59 
RESIDENCE LELUBRE T6 
IMPASSE DU MONT 7 

Du TRANS PARIS 15 AIR 
RUE LUCIEN BURNOTTE 48 
BOULEVARD DES BELGES 9 

LA FORTERESSE 

RUE MESSIDOR Í 

RUE PETIT HUTIN 26 BIS 
BA era 

ШЕ EUGENE LABICHE 5 
CPSHAA 616 / ВА 279 

RUE DE LA SAUSSAIE 2 

ШЕ DE VERSAILLES 17 

BP 6 

ШЕ ANATOLE FRANCE 26 
RUE D'AVRON 36 


AVENUE DU PORT DE LUTTRE 100 


PARVIS DE SAINT GILLES 53 
AVENUE BEL AIR 15 

ALLE RUBENS 13 
MELEERIJSTRAAT 6 

RUE DE PARIS 31 TER 

ШЕ DE TOURRAI 17 
RESIDENCE LES CHATAIGNIERS 
30/21 

RUE JULIETTE LANBERT 28 


AVERUE ALPHORSE DAUDET-QUART. 


BAUDS 

RUE DU CONGO à 

LE RUBENS 23 RUE SCALIERO 
RUE DE LA MARNE 36 BIS 

RUE DU CHERE 22 

RUE CHARLES GIRON 17 

RUE LOUIS PASTEUR 27 

RUE LOUIS LUMIERE 13 

RUE DES CRETES 12 
BOULEVARD JEAN JAURES 9 BIS 


LOT CLAIRE MORTAGRE A HECHES 


RUE LAFAYETTE 9 
RES,BELLE-VUE CHATEAU 
GAILLARD 28 


Localité 


1100 SERAING 

29200 BREST 

15015 PARIS 

92290 CHATEMAY HALABRY 


7860 LESSINES 
59790 KONCHIN 

66230 SAINT ESTEVE 

95130 FRAMCORVILLE 

2801 VAUT SOUS CHEVREMONT 
30380 SERVAS/SALINDRES 
78470 LA CELLE SAINT CLOUD 
13006 MARSEILLE 

92700 COLOMBES 

1090 BRUXELLES 

1308 BOUSVAL 

1430 ВІЖНЕ 

1501 ORCO 

94400 VITRY SUR SEINE 
75731 PARIS CEDEX 15 

6620 HEUFCHATEAU 
44300 RANTES 


30390 ST ETIENNE DE ST GEDIRS 


94500 CHAMPIGNY SUR MARNE 
51100 REINS 
01500 AMERIEN EN BUGET 
92500 ШЕП, MALHAISQN 
24205 CRATEAUDUR 
94320 THIAIS 
T8150 LE CHESRAY 
38130 LA MURETTE 
94140 ALFORTVILLE 
98170 LE PERREUX 
1190 FOREST 
1060 BRUXELLES 
15012 PARIS 
95470 FOSSES 
1500 HALLE 
92190 MEUDON 
59780 BAISIEUX 
45800 SAINT JEAN DE BRAYE 


15017 PARIS 
04060 PIERREVERT 


75012 PARIS 
6300 HICE 
93360 HEUILLY PLAISANCE 
95300 HENMERY PONTOISE 
і203 GENEVES 
94310 LEUVILLE SUR ORGE 
11309 ROCHEFORT 
62118 BIACHE SAINT VAST 
92100 BOULOGNE 
65250 LABARTHE DE MEITE 
57250 METZ 
17300 ROCHEFORT SUR MER 


Pays 


BELGIQUE 
FRANCE 
НАКЕ 
FRANCE 


BELGIQUE 
FRANCE 





Chub 


Ісі, 
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1/21/06 


Жа 


COURHORT 


CREMER 
CREMER 
D'ARARTES 


D'HAENE 
DALLA VALLE 
DAHBOIS 
DASSE 
DAUCHEZ 
DAVID 

DAVID 

DE LOHBAERT 
DECUTPER 
DEGELKE ANDRE 


FERRERO 
FLORQUIN 
FOJUD 
FOLIGUET 
FRILLET 
GALLES 
GEFFROY 
GIEGAS 
GILSOR 
GOFFART 


Prénom 


HENRI 


ANDRE 
PAUL 
LUC 


FILIP 

DARIO 

LOUIS 
JEAN-ROBERT 
GILLES 
FRANCOIS 

MARC 

RAYEOND 
MAURICE 

C/O B, DELANNAY 


BRUNO 
OLIVIER 
EUGENE 
DAVID 
JEAN 
PIERRE 


PATRICK 

JEAN 

ALEXIS 
ARNAUD 
FABIER 
JEAN-JACQUES 
PHILIPPE 


PATRICE 
JEAR 
РОМІНТОВЕ 


IRC members 





Adresse 


ALLEE DU GALLION 2 LES 
PIRCHIMADES 

CHAMPAGNE {1 А 

RUE DES HOUK 5 

CHEMIN STE HARIE RES. STE 
MARIE 10 

BOULEVARD PAUL HENRI SPAAK 6 
RUE JEAN FRIOT 61 

SQUARE MARGUERITE 34 BTE 5 
ECOLE MATERNELLE 

ШЕ DE L'EGLISE 13 

RUE E, CHARPENTIER 12 

RUE ADOLPHE DU MONT T 

А. SCHOCKAERSTRAAT 168 
RUE ADOLPHE DU MONT 11 
RES.ACACIAS ВАТ, В AV, DE 
SALIGE 


Localité 


43427 VITROLLES 


3888 WAIMES 
3610 BEYRE-MEUSAY 
30200 BAGNOLS / CEZE 


7900 LEUZE 

6160 ROUX 

1030 BRUXELLES 

73470 NOVOLAISE 

2650 CRELANCT 

42000 SAINT-ETIERNE 
3601 CHAUDFORTA KE 
1600 SINT PIETER LEEUW 
3601 CHAUDFORTAIRE 
33600 PESSAC 


RES, ACACIAS BAT B3 АУ, ПЕ SAIGE 33600 PESSAC 


RUE BERGEON 21 

RUE JACQUES LEMAIRE 20 
RUE PAUL LEAUTAD 12 

RUE GREUZE 00 

BOULEVARD D'HERSEAUK 143 
AVENUE JOSEPH LEONARD 18 
TIENNE DU PERDU 12 

ALLEE DU FIN 15 

AVENUE DE RAMBOUILLET 42 
BOULEVARD DES JARDINS 
RUE DE L'ABBAYE 40 

ROUTE NATIONALE 1106 

AH BRUCH 46 

ALLEE DE LA TOUR RERARD З 
RUE DE LA RESISTANCE 18 
RUE DE LA RUCHE 3 

RUE DU COLONEL FABIEN 15 
RUE SAINT LUC 11 

RUE OLIVIER DE SERRES 63-65 
RUE DES JULIERS 6 BIS 
RUE JOLI СНАМР 5 

RUE SCHOENBERG 20 
BOULEVARD SAINT MICHEL 57 
RAMEAU DE LA PETITE HOLLANDE 
AVENUE DEBUSSY 5 

CENTRE TDF TRAMOYER 
CHAUSSEE DE JULES CESAR 250 
RUE GEORGES CORDIER 101 
RUE DE LISIEUX Í 

AVENUE DE LAREIME 155 
RUE CORTIL VILADI £3 

RUE JEAN DERAECK 31 
AVENUE DE VERDUN 19 


RUE PASTEUR 6 

RUE DU PARC 6 

RUE DIDEROT d 

RUE HENRI VAR HANNE 127 
RUE DU 23 AOÛT 6 

RUE ERNEST HALVOZ 109 


33000 BOPRDEAUX 

4500 LIEGE 

92260 FORTENAY AUK ROSES 
69100 VILLEURBANRE 
1760 DOTTIGNIES 

1880 SPA 

1300 WAVRE 
43470 GUJAN-HESTRAS 
16340 LES CLAYES SOUS BOIS 
84120 PERTUIS 

03100 MONTLUCON 

59193 RACHES 

4090 ESSENTHO BPS 37 
1400 HIVELLES 

7540 ШІН 

1030 BRUXELLES 

91110 ARCUEIL 

T5018 PARIS 

75015 PARIS 
51500 SAINT AVOLD 

5101 ERPENT 

68000 MULHOUSE 

15005 PARIS 


59890 DEULEMONT-QUESHOY/DEULE 


57150 CREUTZWALD 


1390 SAINT ANDRE DE CORCT 


95600 EAUBORRE 

7360 BOUSSU 

$2389 BOURG LA REINE 
1020 BRUXELLES 

1621 ROISEE 

1150 BRUXELLES 
90170 VANVES 

{432 BELHONT/YVERDON 
92330 SCEAUX 

92190 MEUDON 
42309 ROANNE 

1140 BRUXELLES 

7500 TOURHAT 

3620 BETHE HEUSAT 






































Pays 


FRARCE 


BELGIQUE 
BELGIQUE 
FRANCE 


BELGIQUE 
BELGIQUE 
BELGIQUE 
FRANCE 
FRANCE 
FRANCE 
BELGIQUE 
BELGIE 
BELGIQUE 








Club 
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ROLDEKOFF 

LA HONTAIGRE 
LACHASSE 
LACOUNE 
LAFARGUE 
LAMBORELLE 
LAMBRECHT 
LANGE 
LANGLET 
LAPIERRE 


JEAN-PIERRE 
JOEL 
PHILIPPE 
645704 
WILLY 
MICHEL 


DANIEL 
PHILIPPE 
PIERRE 
JEAN-FRARCOIS 
HENRI -PIERRE 
CHRISTIAN 
PHILIPPE 


FERNAND 
BERRARD 
JEAN 
LAURERT 
JEAN-MARIE 


ALAIN 
JOSE 
GILLES 
THIERRY 
PAUL 
THIERRY 


JEAN-PIERRE 


IDC members 





Adresse 


AVENUE JEAN MOULIN 2 

BP 285 

CHAUSSEE DE MEERSTALE 335 
HAHEAU DE GALAU 6 

CLOS DES HARGUEURITES 17 
RUE DE СЕЖУ 37 

RUE LAMARTINE 32 

RUE SAINT MARCELLIN 33 
BOULEVARD DE GRENELLE 18 
GOLDHAMHERSTRASSE 5 

RUE SALVADOR ALLENDE 71 
ALLEE DE LA HARPE | TER 
RUE TOURAT 33 

LIEU DIT "MARGUICHE" 
CHAUSSEE DE LILLE 18 
RUE J. VERCERUTST 9 

RUE DU TRAM 31 

RUE LAPOSTELLE 26 
INPASSE DES TAILLIS 

RUE VICTOR CAMBIER 27 
RUE DU MARAIS 10 

RUE PASTEUR {4 

RUE DU BLANC 18 

SILLY LA POTERIE 
BOULEVARD DE VALNY Зі 
RUE DE CAILLOUEL 11 

RUE DU VIEUX PAYE 10 
RUE PAUL BERT 271 

RUE DES ANEMONES 2 
BOULEVARD LAHURE 620 
AVENUE GEYSKENS 110 
RL'EGLISE 29 CASTELHAN 
ESTREFORDS 

RUE DU COLLEGE 34 

LE VIGRAL SAINTE RADEGONDE 
AVENUE DE CELLE 8 

RUE DU BERGER DAVID 26 
RES. PARC ARCEAUX ВАТ, 83 RUE 
RIHBAUD 

VELDKANTSTRAAT 190 

RUE CLEMENT PERROT 34 
ALLEE DES СНЕН 1 


Localité 


98150 VILLIERS SUR HARRE 
35005 REINES CEDEX 

1190 BRUXELLES 
47520 PASSAGE D'AGEN 
73290 LA HOTTE SERVOLEX 
95520 00 
18500 SARTROUVILLE 
4310 SARARY SUR HER 
75015 PARIS 

4630 ВОСНИМ 1 

94700 VILLIERS SUR ORGE 
43250 VILLEMOMBLE 
33000 BORDEAUX 

13550 TABANAC 

1501 0400 

4530 HERMALLE SUR ARGENTEAU 
5700  SANBREVILLE 
40000 AMIENS 

76640 HEAUPHLE LE CAHTEAU 
1180 BRUXELLES 

6522 SEREFFE 

31120 PALAISEAU 

11000 CAEN 

2860 LA FERTE MILLON 
92700 COLOMBES 

60370 HERMES 
28100 DREUX 

69003 LYON 

59287 PROUILLE 

59500 DOUAI 

1160 BRUXELLES 

31620 FRONTON 


6071 CHATELET 
12850 ONET LE CHATEAU 
92360 MEUDON LA FORET 
1800: ATH 
34100 MONTPELLIER 


1850 GRIMBERGEN 
94400 VITRY SUR SEIRE 
91220 BRETIGNY SUR ORGE 


RUE L, ТНЕУЕНЕТ {0 ALLEE 2C 69004 LYON 


RUE GEORGE HEBERT 6 

RUE DE LAVAUR 79 
BOULEVARD DE LA SAUSSAYE 25 
BIS 

RUE DU BAOETON 9 — SCY 
CHAZELLES 

VOIE D'HAININ 

RUE САШЮТ 2 

CORMICT 

RUE KONIN 600 

RUE C. DESHOULINS 46 
CLOS FONTAINE DES DUCS 6 
RUE ROBERT HOUDIN 6 


15011: PARIS 

73100 AIX LES BAINS 
17300 ROCHEFORT 

63500 ISSOIRE 

92200 REUILLY SUR SEIRE 


57160 NOULIRS-LES-HETZ 


1360 BOUSSU 
51700 DODMNS 
51220 HERMENONVILLE 
6080 HONTIGNIES SUR SANBRE 
94230 CACHAN 
1310 LA HULPE 
14909 CAEN 


Pays 


FRANCE 
FRANCE 
BELGIQUE 
FRANCE 
FRANCE 
FRANCE 
FRANCE 
FRANCE 
FRANCE 
RFA, 
FRARCE 
FRANCE 
FRANCE 
FRANCE 
BELGIQUE 
BELGIQUE 
BELGIQUE 
FRANCE 
FRANCE 
BELGIQUE 
BELGIQUE 
FRANCE 
FRARCE 
FRANCE 
FRANCE 
FRANCE 
БАКЕ 
FRANCE 
FRANCE 
FRANCE 
BELGIQUE 
FRANCE 


BELGIQUE 
FRANCE 
FRANCE 
BELGIQUE 
FRANCE 


BELGIE 
FRANCE 
FRANCE 
FRANCE 
FRANCE 
PART 
FRANCE 
FRANCE 
НИЖЕ 


FRANCE 


BELGIQUE 
FRANCE 


BELGIQUE 
FRANCE 


Chab 


GERMANY 
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Жа 


MORLET 
HOULES 


MOUNTER-POULAT 
REELEMANS 

NIJS 

PAGARELLI 
PALADIRI 
PERSOONS 
PHILIPPART 
PICHON 
PIERREVELCIA 
PIETTE 


PRINCE 
PROTAT 
PUJO 
RADUGUET 
RAPHAEL 
RASQUIN 
RASSEL 
REPUSSARD 
RETGAERTS 
RETNAUD 
ROUAN 


ROUDAKOFF 
RUBIN 
SAINT ETIENNE 


SAMAIN 
SARSDRAPS 
SCHAEFER 
SCHWARZ 


SIMON 
SMETS 
SOFILOMAT SC 


SQULTANBETEFF 
SQURIMIX ET CIE $/C 
STARASELSET 
STRANSERT 
SEIGETVARI 
TEGETHOFF 
THEEUWTENS 
THIBAUT 
THIEBAUT 
THORON 
TOUCH IS 
UNBETARIT 
VALTOR 

VAN GRANBERGEN 


Prénom 


JEAN-CLAUDE 


PATRICE 


GIL 
PRILIPPE 
CHRISTIAN 
BERNARD 
ROLAND 
PHILIPPE 
JEAN-CLAUDE 


HICHEL 
RICHARD 
MICHELE 


HENRI 
Luc 
FREDDY 
FREDDY 


МАШ 
PHILIPPE 

B. Т. CAPPART 
CHRISTIAN 
DIDIER 
GEORGES 
JOSE DELACRUZ 
VICTOR-LEON 
JEAN 
ETIENNE 
HEINRICH 
JEAN PIERRE 
EMMANUEL 


IC members 
Adresse Localité Pays 
ШЕ DE PARIS 50 92190 НЕОН FRANCE 
A.J.JAURES 14 CHARBONNIER LES 63340 SAINT GERMAIN LEMBRON РЕЖЕ 
МІНЕЗ 
RISSET 38760 VARCES FRANCE 
AV.V. CHURCHILL 182 BTE 9 1140 BRUXELLES BELGIQUE 
RUE MARCHAND 5/7 3530 HERMALLE SUR ARGENTEAU — BELGIQUE 
AVENUE DU BEL AIR 9 74012 PARIS FRANCE 
AVENUE PEETERMANS 12 6030 MARCHIENME AU PORT BELGIQUE 
RUE DE LA CORDIALITE 8 1080 BRUXELLES BELGIQUE 
RUE DE LA MOLIGREE НА 1160 BRUXELLES BELGIQUE 
BOULEVARD D'HAUSSORVILLE 24 — 53000 ЮҮ FRANCE. 
RUE DES PRES 6 68120 PFASTATT FRANCE 
RUE RESPONNETIE 12 5620 SAINT GERARD BELGIQUE 
RUE CAUSSIN 97 BTE 5 5500 DINANT BELGIQUE 
RUE DU žeme ZOUAVE 17 93110 ROSNY SOUS BOIS НАКЕ 
RUE DES BAS SARTS 10 4100 SERAING BELGIQUE 
11 WSL 50 ESC 3090 BPS 12 FBA 
RUE SAINTE ANNE DE BARABAR 53 69003 LYON FRARCE 
AVENUE DES LANCIERS 14 4840 SPA BELGIQUE 
VILLA DES LILAS 19 75019 PARIS FRANCE 
AVENUE DES BLEUETS 16 13009 MARSEILLE FRAME 
VI LES LURES AUX BREULEUX 70200 LURE FRANCE 
RUE DE PROVENCE 21 70130 NAUREPOS FRANCE 
RUE DE LA SAIVELETTE 89 1510 SAIVE BELGIQUE 
RUE GEORGES DE PAEPAIFVE 2 4460 GLONS BELGIQUE 
RUE GAMBETTA 81 77670 ST HAES FRANCE 
RUE ROGER ABEELS 3 1080 BRUXELLES BELGIQUE 
RUE DU ROCHER 75 15001 PARIS FRANCE 
RUE DE LA FONTAINE ST GERVAIS 60300 SENLIS /AUMONT EN МАЇАТТЕ FRANCE 
1 
RUE GANNERON 15 75018 PARIS FRANCE 
RUE DU MERLO 68 BTE 21 1480 BRUXELLES BELGIQUE 
TBMEUD, CHANTABUR RUE 25000 VALERCE FRANCE 
MONTPELLIER 74 
RUE DU LOUP PERDU 13 91570 BIEVRES FRARCE 
RUE JEAN JAURES 1 59460 COMINES PART 
RUE ARTHUR HERCHEN 35 4727 LUXEMBOURG VILLE LUXEMBOURG 
'CAKDY'LA GALERE BLD CORNICHE 06590 THEOULE FRANCE 
D'OR 
RUE MARCEL REGNER 19 4700 AGEN FRANCE 
RUE VAUTIER 28 1030 BRUXELLES BELGIQUE 
PARC DU CENTENAIRE 3 AVENUE 17 1320 GENVAL BELGIQUE 
AVENUE CEUPPENS 169 BTE T 1190 BRUXELLES BELGIQUE 
AVENUE D'ORGEVAL 54 95210 SAINT GRATIEN - FRAKCE 
RUE LAVOISIER 1) 300 SERAING BELGIQUE 
RUE GENERAL GALLIENI 12 92101 BOULOGNE РАКЕ 
AVENUE DE TOBROUCE 87 78500 SARTROUVILLE FRANCE 
AVENUE GENERAL LECLERC 5 94200 IVR? SUR SEINE FRANCE 
ROUTE PROVINCIALE 7 1361 CLABECQ BELGIQUE 
IN DER PROVITZE 87 3630 BOCHUM f BEA 
RUE CLAUDE DEBUSSY 16 1070 BRUXELLES BELGIQUE 
RUE DU ROUGE CLOITRE 47 1319 LÀ HULPE BELGIQUE 
RUE DE STIERBECG 113 1360 TUBIZE BELGIQUE 
RUE TILLHAN 54 4620 FLERON BELGIQUE 
RUE D'ARJOU 8 49520 BEL AIR DE COMBREE FRANCE 
SURESRE LE HAUT KETTES 88100 GERARIHER НАКЕ 
RUE DE VERDUN SAINT GILLES 52200 LAMGRES FRARCE 
RUE DE FOYER 16 95870 BEZONS FRANCE 
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Hom 


VAR НЕСЕ 
VARDERL INDER 


VANDERMEERSCH 
VARLATHER 







WAUQUAIRE 
WEYN- BROUWERS 
WIJZ 







Prénom 


LA 
BERNARD 


IDC members 





Adresse 


RUE DU PRETOIRE 29 

RES, VAL DAIN APP 892 ВТЕ 
% 

AVENUE DU VERT BOCAGE 17 
AV, P, PASTEUR 339 BTE 7 

RUE JEAN WAUTERS 55 

PIED DE LA FAGNE 2 

RUE DE L'ECOLE 09 

AV, DES EPERVIERS 119 BTE 15 
SIPA ALLEE DES LOGES 

RUE LAMARTINE 9 


JEAN-PHILIPPE AVENUE DE LA REPUBLIQUE 114 





RUE DU BOCAGE Y 

RUE DE L'EUROPE 4 

RUE DU GAL PERSHING 13 
RUE DE FIERLAND 157 
PLASSHOFSTRASSE 29 
AVENUE J.F. LEEMANS 44 
RUE DES ANEUX 2А 
MONTAGNE 


localité 


1070 BRUXELLES 
T330 SAINT GHISLAIR 


1410 WATERLOO 
6100 BONT SUR MARCHIENNE 
6548 FANTLLEUREUX 

4470 THEUX 

5198 DAVE 

1150 BRUXELLES 
14100 BEUVILLIERS LISIEUX 
93310 LE PRE SAINT GERVAIS 
18500 SARTROUVILLE 
39280 NAZIERES ER HANGES 
3110 YUTZ 

T8000 VERSAILLES 

1190 BRUXELLES 

4630 BOCHUM Í 
1160 BRUXELLES 
4920  EMBOURG 
86390 LATHUS SAINT REMY 


Pays 


BELGIQUE 
BELGIQUE 


BELGIQUE 
BELGIQUE 
BELGIQUE 
BELGIQUE 
BELGIQUE 


Барат от des membres 


ОС /DRIC В: 
IDC Carol 





IDC Liege 


шағы ss citis 





Club 


МІС 


IN 
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Messieurs Casier & D'àrantes, ont établi, au nom de D.C.A., un 
plan d'actions communes avec I.D.C. Bordeaux, représenté par messieurs Delannay 
& Lafargue. : 

L'organisation détalllée vous sera communiquée ultérieurement, no- 
tez, cependant, que toutes les activités des deux clubs seront conservées : édi- 
tion (librairie & soft) ; softheque ; réalisations Hard ; télématique ; dépanna- 
ges... 

Mais l'elément LE PLUS IMPORTANT (C#xGB#*x the most important 
**GB**) est la poursuite de 1 EDITION d'une REVUE conçue imprimée et diffusée a 
partir de Bordeaux. Cette revue gardera la philosophie. de DAICLIC...(et peut- 
être le nom) 

D'autre part nous maintiendrons le prix des cotisations a 200 F 
(235 FF pour la C.E.E.) dans la mesure ou les tarifs actuels n'évoluent pas trop 
en cours d'année ! 

ABONNE2 VOUS VITE au pres de : 

D'ARANTES Luc 
6 chemin Sainte Marie 
10 D césidence Ste Marie 
30200 BAGNOLS SUR CEZE 

FRANCE 
66 89 57 60 
par chéques et mandats internationaux. 


*CBEXCBXXxGBiXGBiX GBEkXGBIXGBX 4 Ba aa a GBHAGB RGB RGB RGB GBR GBH GB it He 
WHAT” s HAPPEN in 1987 2 
Dai Computer Assoclatlon always live 
in with its DAI Magazine and all its old services : 
жи же softheque , hardware conception , library and so оп... 
d MEET US ! 
a 


Your fees^ll be 235 french francs (postal order only) 
whatever the country where you live. 
ТЕ you're enought, we'll can al ways edit a summary of all article 


іп English or other language. " 
PLEASE CONCTACT : D’Arantes address above . Mee 


87< 
MERRY CHRISTMAS &HAPPY NEW YEAR ! 
HRGEX4CBIXRGBAAGBIXCBRS DBAx CBAR S GDXX DA* DX & GDkXGBIR GBA 4 GDA AGBR* DX 4GBa 


Sachez dés à present que nous espérons que les échanges seront 
fructueux en 87 d'autant plus que des amis néerlandophones devraient nous re- 
Joindre. Nous espérons également que l’on aura une meilleure participation ne 
serait-ce qu'aux tests et autres sondages !... 

NE RESTEZ PAS FRUSTRE DANS VOTRE COIN ! 
Exposez vos problemes aux autres Daiistes, ils connaissent peut-étre la solution 
autrement on у réfléchira ensemble ! 
ENVOYEZ VOS DECOUVERTES, VOS REALISATIONS ! 
méme si elles vous semblent d'un molndre interét ! 
NE SOYEZ PAS MODESTE ! 
NOUS AVONS BESOIN DE VOUS, POUR ALIMENTER LES REVUES ! 





Merci à tous ceux qui nous soutiennent. 
5,837 „ 


BONNES FETES DE FIN D'ANNEE A TOUS ! 7 


D'ALu 007 pour ВБА 
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Vous utilisez un ATARI ST, pour vos études, vos loisirs, 
ou encore dans le cadre de votre profession 2 Alors vous ne 
pouvez ignorer l'existence de notre association ! ЕМС ATARI 
ST a pour unique ambition de vous aider à profiter au mieux 
de votre merveilleuse machine qu'est le ST ! 


Comment ? Tout simplement, en mettant à votre disposition un maximum de services dont 
voici une (trop !) brève descritpion : 


LES REUNIONS constituent le premier service du club. C'est l'endroit privilégié pour 
rencontrer d'autres utilisateurs de ST, échenger ou louer des programmes, participer a des 
achats groupés de matériel, bénéficier des prix club (sur disquettes par exemple), recevoir 
une aide technique, des infos, etc. Les membres peuvent bien sûr apporter leur matériel. 
Branches régionales actuelles : 


EMC LIEGE : réunions tous les vendredis 19h45, au local situé place St-Paul 2 à 
Liège-Centre. Réunions ATARI ST + DAI + MACINTOSH. Possibilité de rentrer sa voiture dans la 
cour du bâtiment 


EMC VERVIERS : réunions tous les samedis après-midi au local situé rue du Collège 88 à 
Verviers. Réunions COMMODORE 64/ 128 ( nouvelle section en préparation). 


D'autres branches ouvriront bientôt : EMC PARIS, EMC BRUXELLES, EMC NAMUR, EMC 
MONS... А ce sujet, nous recherchons des responsables EMC régionaux; n'hésitez pas à nous 
interroger sur ce point ! 


PROGRAMMATHEQUES : Chaque branche régionale dispose d'une programmatheque. Ces 
programmathèques sont accessibles aux membres EMC suivant les modalités définies par 
chaque branche régionale. Normalement, il est possible d'acheter /échanger des logiciels ! La 
programmatheque ЕМС LIEGE fonctionne aussi par correspondance. la liste complète des 
logiciels (environ 350) est envoyée dès l'inscription а EMC ! 


SERVEURS TELEMATIQUES : permettent actuellement les échanges de messages entre 
membres du club (et d'autres utilisateurs), le téléchargement de programmes, la lecture 
d'informations régulierement mises á jour concernant le club, les petites annonces, etc. 


Bien d'autres services sont en preparation et des qu'ils seront opérationnels, vous en 
bénéficierez en tant que membre du club ЕМС! Exemple : Revue bimestrielle, Meeting 
International, mise en place de nouveaux serveurs télématiques pour constituer un véritable 
réseau belge (en liaison avec le réseau mondial FIDONET), etc. 


La cotisation est de 1000 FB et est valable un an à partir de la date d'inscription. Elle peut 
être versée lors d'une reunion du club (à la quatriéme visite au plus tard) ou par virement sur 
le compte 240-0732877-46 (508), ou par chèque (Etranger : 1100 FB par mandat postal 
uniquement ). 


Pour tout renseignement, écrire à l'adresse suivante : 


EMC ATARI ST 
с/о Christian POELS 
Rue des Bas-Sarts, 10 
B-4100 SERAING - BELGIQUE 











JK ATARI 
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DEBUTER AVEC SFGT (°) 
IDC BORDEAUX 


Les quelques pokes suffisants pour débuter avec SFGT : 
* La position horizontale (abscisse = X% ) : 


Elle est codée différemment sion estdans un mode comprenant moins de 256 points 
(modes de 1 à 4), ou sion utilise les modes 5 ou 6 qui vont jusqu'à 336 points en abscisse. 


On la code doncsur Zadresses : '768' et 769 en partie 'basse' et ‘haute’. П faut 
donc poker en "768" (décimal) le nombre des X% : POKE 768,X% pour јез modes de 12 4. = 
partie 'basse' (maximum bien sur = *FF = 256 positions ) la partie ‘haute étant alors 
nulle, ne pas oublier de poker au moins une fois la partie haute 20 : POKE 769,0. 


. Ou en mode 3-6 la partie 'basse' des X% : =X% MOD 256 : POKE 768,X% MOD 256 et la 
suite, parite ‘haute’ des {7% : =X% /256 :,РОКЕ769Х% /256 


* La position verticale (ordonnée = Y^) : 


Moins de difficultés puisque tous les modes ‘tiennent en moins де 256 points. On poke 
donc le Y% en 770 : POKE 770,Y% . 


* Pour choisir la table utilisée: POKE 790, No de la table. 


* Couleur : la poker en 786 de préférence en hexadécimal : premier chiffre pour la 
couleur du fond 'А' et deuxième chiffre pour la couleur du caractère 'В' = POKE 786,*BA 


* Affichage du caractère (ou de la chaine) par : CALLM 800,A$ 


(*) : SFGT est un logiciel de DAInamic Software. 
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COMMENT UTILISER FACILEMENT LES COMMANDES МЕМОСОМ DANS UN PROGRAMME BASIC ? 


Les possesseurs d'un MEMOCOM ont pu se rendre compte de la pauvreté du 
manuel d'utilisation concernant la façon d'utiliser les différents ordres à 
l’intérieur d'un programme BASIC. 

Ces quelques lignes vous permettrons peut-etre d'y remédier. 


1. Programmation à travers un 'REM' 


Intéressons nous aux ordres REWIND et SKIP (la structure est semblable pour 
les autres commandes). 


EM REW Z 
EM SKIP Z 


La syntaxe à respecter est la suivante : 100  CALLM #F000 : R 
150 седм #F000 : R 
Cet ordre (CALLM#FOOO) ne peut etre suivi que d'ordres relatifs au MDCRD et 
pas d'ordres BASIC 'normaux', jusque là pas de gros probléme. 
L'inconvénient de taille est que Z doit avoir une valeur comprise entre О et 9, 
de plus, une tentative du style : 5 F4 = 5 
10 CALLM ЯҒО00 : НЕМ SKIP FX 
est vaine et provoque un SYNTAX ERROR IN LINE 10 


En d'autres mots cela signifie que pour 'sauter' par exemple 15 fichiers, il 
faut procéder en deux étapes : 

100  CALLM 8ЕООО i REM REW 9 

150  CALLM #F000 : REM REW 6 

ou encore 

100 FOR В = 1 TO 15 

150  CALLM %Ғ000 : REM REW 1 

200 NEXT B 


Dans les deux cas, l'écriture est lourde, pour surmonter ces dificultés, il 
suffit d'utiliser d'autres points d'entrée que #F000. 


2. Programmation directe 
Le manuel d'utilisation reprend les adresses d'implantation des routines des 
différentes commandes : 


#2000 : REMS = exécute REM statement 

#F003 : ONERR = initialise ON ERROR 

#2006 : NONERR = met hors service ON ERROR 

#2009 : OPEN = ouvre le DER sélectionné 

ЯРООС : DCR = sélectionne le DCR 

#FOOF : CAS - sélectionne le CAS 

#F012 : CRWND = commande REWIND "EI files F représente un nombre compris 
#F015 : CSKIP = commande SKIP "Р" files entre 0 et 255, stocké en #180 
#FO18 : CVER = commande VER 

ЯҒОІВ : CLAST = commande LAST 

#FOIE : CLODK = commande LOOK 


Dn peut utiliser les routines НЕЙ et SKIP implantées respectivement en #F012 
et #F015, en prenant scin d'indiquer le nombre de fichiers à 'sauter' en #180. 


50 РОКЕ #1B0,25 : CALLM #2012 équivalent à REW 15. 


Cette procédure à l'avantage de pouvoir paramétrer un ordre SKIP ou REW de 1a 
maniére suivante : 


50 INPUT " NOMBRE DE FICHIERS ñ SAUTER "; F 
80 РОКЕ #1B0,F 


70  CALLM 8ЕО15 équivalent à SKIP F. 
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x Vends DAI + МЕМОСОМ DCR (cables, TOS, ..) avec cassettes, joystick, 


et quelques Kilos de documentation pour 25000 FB. 

Vends SPECTRUM 48К avec manuels, joystick Spectravidéo, lecteur de 
cassette avec une dizaine de cassettes bourrées de programmes pour 8000 
ЕВ. Contacter Fabrice Duluins, Allée Tour Renard 4, B-1400 Nivelles. 


x Vends MEMOCOM DCR complet (cable, TOS + support) pour 8500 Fb (оц 
échange contre Commodore C64 “modèle 1". Vends cassettes pour DCR. 
Contacter Philippe Verhaege, Rue J. Wauters 55, B-6548 Familleureux. 


x Vends ` 
DAI 48К rév5 avec clavier séparé (nouvelles touches). Le DAI est 


installé dans un boitier de floppy-disk. DAT livré avec le BASIC Vid 
et le BASIC V42 (version allemande, avec manuel), BASIC V1.0, 
programme de terminal graphique en EPROM. Le tout pour 10.000 Fb ! 
- Un MEMOCOM avec une centaine de cassettes digitales pour le prix 
unique de 5000 Fb. 
- Une carte controlleur d'unité de disquettes 5000 Fb 
- Carte PAL, RGB et TV monochrome, la pièce : 1000 Fb. 
Contacter Dominique Carlier, Melkerijstraat 6, B-1500 Halle. 


Tél.:02/356.36.18 (aprés 19h) et 02/7212090 (de 8h30 а 17n00) 


ж Vends : 

- FLOPPY DAI 2x80K, en panne mais réparable o 
- FLOPPY DAI 2х320К, parfait état de marche, 
DOS 24 : 4500 FF 

- Console DAI (1980) Parfait état de marche : 1500 FF 

- Manual d'utilisation du DAI neuf : 60 FFF 

- FIRMWARE MANUEL : indispensable pour le langage machine, neuf 100 FF 
Contacter Mr FL Mencière, Cormicy, F-51220 Hermonville.Tél.:26.61.30.25 


u pour pièces : 1000 FF 
avec disquette DOS 2.0 et 


x Vends : 
- Lot de 22 disquettes KENDOS avec TOUS les programmes existant sur le 


DAI (ou presque, il n'en manque que très très très peu 11): 3750 Fb. 
- 3 EPROM BASIC Vi. plus adaptateur DAI (Cfr Description DAI)... un 
nouveau moteur pour votre DAI, un éditeur super-rapide, compatible avec 
le BASIC Vii et V4.0 : 1100 Fb t! 

Contacter Marc Vandermeersch, IDC asbl. 


x Vends DAI pc (20000 Fb) DCR (7000 Fb) Moniteur BARCO (18000 Fb) 32 
cassettes DCR + doc (6000 Fb) Contacter Guido "Van den Berghe, 


Nijvendries 1А, B-2688 Sint-Amands. 


x Recherche PROM et ROM du РАТ au meilleur prix !! (éventuellement, 
serais prêt à récupérer une épave de DAI). Contacter Pascal Janin, 17 
clos des Marguerites, F-73290 La Motte Servolex, 


ж Vends Synthétiseur Vocal (décrit dans DAICLIC 7) complétement monté 
avec une alimentation extérieure (pas de parasites 1), le tout dans un 
trés beau boitier. Prix 3999 FB soit le prix des composants. 

Contacter Werner Persoons, 14 rue de la Cordialité, B-1080 Bruxelles. 


x À SAISIR : 2 modems BONDWELL,standard Уд! (300 bauds)auto answer 


modes TELéphone/ANSwer/ 
d'emploi complet. Prix : seulement 6.199 FB (piëce т), Contacter Marc 


Vandermeersch ou Fabrice Duluins. 









ORIGinate, cable DAI ou PC (au choix) avec mode 





In het laatste tijdschrift van dainamic 
schrijven wij hier nog ееп limerick. 
Het is het verhaal 
van ons allemaal 
en leeft misschien verder in Dai-clic. 


Er was eens een man in Westmeerbeek 
die tijd had en weinig T.V. keek 
Een dai werd gekocht 
meer volk werd gezocht 
zodat het al gauw op een club leek. 


Toen werd een redaktie geboren 
die zwoegde tot na tt ochtendgloren. 
Dainamic de naam 

genoot wereldfaam 

en hun werk zou velen bekoren. 


Het ledenbestand groeide zeer snel 
bijna twee duizend als ik goed tel. 
Die ontvingen dus 

op tijd in hun bus 

een ledenblad vol info en spel. 


In het Tongelsbos op tijd en stond 
kwam een zeer drukke meeting van grond, 
En steeds meer en meer 

bewezen wij weer 

de club die leefde, zij was gezond. 


Hollanders en belgen met elkaar 
werkten samen, en dit jaar na jaar. 
Druyff is onze man 

die goed schrijven kan 


en steeds op tijd, vraag het Wilfied maar. 


Dai was echt internationaal 
dat weten jullie vast allemaal, 
Duits, engels en frans 

kregen ook een kans 

en natuurlijk ook computertaal. 


Voor al het fijn werk dat ze deden 
danken wij hier nog alle leden 

" Is spijtig maar waar 

dit was "є laatste jaar 

weldra із dainamic verleden, 
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EEN SLOTWOORD VAN DE LEDENADMINISTRATIE 


Van augustus 1980 tot december 1984 is DAInamic uitgegroeid tot een groep 


van 1200 fervente DAI-gebruikers. DAInamic was internationaal, Van die 1200 


leden waren 


meer dan de helft buitenlanders, waaronder zelfs meer dan 50 


niet-Europees. Regelmatig correspondeerden we in die periode met Zuid-Africa 


en met Amerika, De redactie beleeft nog af en toe plezier aan een anekdote 


in verband met een zending naar Israel. Ons verste lid was André Degelke uit 


Noumea in Nouvelle Caledonie, We vinden het jammer dat hij ons niet tot op 


dit ogenblik is trouw gebleven, De redactie heeft immers het genoegen gehad 


André persoonlijk te ontmoeten, 


Vanaf 1985 is ons ledenaantal gedaald. Hiervoor zijn verschillende redenen 


aan te geven, De opkomst van een nieuwe generatie goedkope microcomputers 


verminderde sterk de toevoer van nieuwe leden en heeft ook verschillende 


leden DAI-afvallig gemaakt. Bij anderen was de computermicrobe gestorven, 


zodat ze geen nut meer zagen in een verdere lidmaatschap, 


Regelmatig werd ons gevraagd naar de publicatie van onze ledenlijst. 
We hebben het eenmaal gedaan, Hier zijn toen nogal wat reacties op gekomen 


van leden die daar helemaal niet gelukkig mee waren - een computerfanaat is 
nu eenmaal iemand die nogal snel "hulp" zoekt -, dat we nadien van elke pu- 
blicatie hebben afgezien, Nu echter in dit laatste nummer van de DAInamic- 


reeks vinden we het noodzakelijk de allerlaatste ledenlijst af te drukken, 


Omdat de 1200 leden van eertijds over meerdere bestanden waren verdeeld, 


bestaat ook deze lijst nog uit meerdere delen, Je vindt er jezelf zeker 


in terug. 


LEDENLIJST DAINAMIC : DECEMBER 1986 


ANTROP 
BELLIERE 105 
BEUCKELAERS ARMAND 
BIENKENS 
BRUYNINCKX ROB 
SUCQUOYE PAUL 
BULTINCK L, 
CALLENS DIRK 
LASEL ANDRE 
COFFIJN K 
COLLENTJN C.J. 
CRABBE V, 

DE BOECK 








BEEKSTRAAT 29 

AV, DES DAGUETS 9 
ELLEBROECKEN 1 
HEURSTRAAT 109 
TIENSESTRAAT 102 
TOC HB. STRAAT 2 
CEDERLAAN 12 

VAN PRAETLET 10 

А, DE LENSSTRAAT 18 
KERKSTRAAT 5 
MARIUS RENARDLN 33/54 
DORP 75 

HINDEDREEF 15 


BAI-namic 


Bruno Van Rompaey 


9920 LOVENDEGEM 
1488 POUSVAL 
2510 KORTSEL 
3783 TONGEREN (DIETS-HEUR) 
3301 RUNSREEK 
8970 POPERINGE 
2790 KIELDRECHT 
2080 HERKSEN 
8320 BRUGGE 
8170 DE РАНКЕ 
1070 BRUSSEL 
3221 NIEUNRODE 
2079 EKEREN 


DE BONT CORNEEL 

DE NEVE H, 

DE NIL PATRICK 

DE TURK KIK 
DECRUSRAECKER 
DECREMER ALFONS 
DEMOULIN PHILIPPE 
DULUINS MICHEL 
FORNAROLI RUDOLF 
FOUARGE N. 

8108 A, 

BOETHALS GUNTER 
НАМА J 

HOLTHOF MARC 

INST TH FYS (CERULUS) 
INST, ONBEVL, ONTVANGENIS 
JANSSENS GEORGES 
LAMBRECHT 
LOKEL 8. 

LUCA 
NOENTACK PIERRE 
RIEBERDING РК, 
PATTIJN B 

PELS T 

PIRARD YVES 

FIRRARD 

QUATANNES W, 

ROELS MARC 
ROMBOUTS J. 

ROSSTON DANIEL 
SERROYEN RUDY 

88115 Р 

9104. 

ST, FRANCISCUS IAVERIUS 
STRELENS P 

STRUYVEN Е 

TERMOTE WOUTER 

TIKB (VAN DE BERG J) 
UITTERHOEVEN FRANS 
VEN BOSCH KERNER 
VAN DANNE LUCIEN 
VAN DE CANDELAERE 
VAN DE PERRE 

VAN DE WALLE VALERE 
VAN DEN DRIESSCHE 
VAN DER SANDE WILLY 
VAN GEITE 

АН HOECKE GUSTAAF 
VANDENBUSSCHE PETER 
VANDERBEKE 
VANDERHEEEN PETER 
VAMVAERENBERGH NORBERT 
VERPOORT YVES 
WREYTENS /CD JANSSEN 
HÉRET PH, 

WOUTERS JEAN 

111863 


GOSTEINDE 10 
BLOENFONTEINSTRAAT 22 
LAURIERSTRAAT 53 
KRONSTRAAT 12 
REIRROEKSTRAAT 128 

8 VAN OPHENSTRAAT 14 
RUE DU CHATEAU 11 
ALLEE TOUR RENARD 4 
HORESNETLAAN 6 
OSYSTRAAT 11 
BEUKENLAAN 30 

L. THEVERETLAAN 2 

AY FOND DE LA VIGNE 23 
KAMMESTRAAT 14 
CELESTIJNENLAAN 2000 
ST JANSSTRAAT 11 
COLLEGESTRAAT 31 
MANDEKENSSTRAAT 15 
SNOLDERSTRAAT 148 
HARNOTLAAN 20 
CHAUSSEE D' ENGHIEN 214 
TRANSSVAALSTRAAT 44 
BURGER М, 0, VIJVERLAAN 53 
BULDEN SPORENSTRAAT 7 
AVENUE BAUDOUIN 76 

20 AV BRUYERE DU LOUP 
DORPSSTRAAT 45 
BERKENLAAN 13 
ROQDBORSTLAAN 28 

13W ASL -W/OPS 

AY DE LA CHASSE ROYALE 30 
J VERBOVENLEL 54 
VLEESHOUWERSSTRAAT 28/11 
HARTASTRAAT 7 
BEMEENROF 59 
VOLTASTRAAT 1 
STATIONSSTRAAT 84 
HALLEMSTRAAT + 
KANNESTRAAT 34 

ED. DE SUTTERLAAN 19 
LUCHTERENKERKMES 250 
VIJVERLAAN 23 
MARTENDIJK 25 
DOSTWINKELDORP 45 
KOUTERBAAN 23 

JOZEF COPSTRAAT И 
TERLINDEN 10 

KOKING ALBERTFLEIN 15 
WINDKOLENSTRAAT 11 
DOSTHEERS 90 
KOREELSTRAAT 6 
BEALLIEERDENSTR, 23 
72 BARON HOLVOETLAAN 
QUAI DE ROME 20/6 
FIERLANTSTRAAT 157 
CARDIJNLAAN 75 
BRUSSELS TRADE MART 


2338 BAARLE-HERTOG 
2300 TURNHOUT 
9370 LEBBEKE 

1500 HALLE 
9050 EVERGEN 

3220 AARSCHOT 

9452 DEULIN (HOTTON) 
1400 NIVELLES 

2400 KOL 
2008 ANTWERPEN 
2410 HERENTALS 
1500 НАЦІ 
1330 RIXENSART 

2000 ANTHERPEN 

3030 BEVERLEE 

3700  TONGEREN 

2700 ST. NIKLAAS 

9370 LEBBEKE 

3910 HERK DE STAD 
1970 МЕТЕКВЕЕК-ОРРЕМ 
1370 SAINTES 

2600 BERCHEM 

8880 TIELT 

9900 EEKLO 

5004 BOUGE (NAMUR) 
1310 LA HULPE 

3050 BERTEM 

9100 LOKEREN 

2110 HOBOKEN 

4090 POST 12-FEA 
7020 MONS (HYON) 
2100 DEURNE 

8900 JEFER 

8000 BRUGSE 

8710 HEULE 

2621 SCHELLE 

8030 ВЕЕККЕМ 

3600 GENK 

3071 ERPS-KWERPS 
2890 TEKSE 

9810 BENT 

3200 KESSEL-LO 

2170 GOOREEND 

9931 20RERGEN 

9470  DENDERLEEUM 
2710 KOBOKEN 

1790 HEKELGEN 

9180 HANNE 

2788 VRASENE 

8000 BRUGGE 

9470 DENDERLEEUW 
9470 DENDERLEEUK 
8658 DADIZELE 

4000 LIEGE 

1190 BRUSSEL 

3150 BQOISCHOT 

N ARLES 3728 BOX 323 
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RESCHLIMBMN EUY 
ANTHEUNIS F 
BEKAERT JOHAN 
BEYENS LUC 
BRICOULT THONON 
BROSTEAUK-LONGREE 
BRUSSELAERS 4 
CALLEAUW Wie 
CARLIER WILLY 
DP HAVELDOSE R 
DE DAUW À 

DE JAEGER 

DE LAET PASCAL 
DE MOOR JOS 

DE РАШ J. 
DELVAUX GUY 
DESURE РА 
DETAILLEUR ЈАН 
DHOQGHE А 
DOUMONT 8, 
Б-ВАНК 
BEBQERS J Р 

BOFFART MARC 

BOGAERT E 

HESELMANS 1 

ШШЕН ТОМ 

IDE JOHAN 

TNTEGAN 

ПЕПЕ 2 

JAUNOTTE 

KON ATHENEUM 16.0, L BILLET) 
LEROY 6 

HADDENS CARL 

NAES LUC 

КЕШЕР JOEL 

МЕМЕВЕЕЛ MARC 

NEVE DE KEVERENIES 

NIVAL 6 

NOLF FRANK 

PAUMELS R 

PERENANS EUGENE 

REYNIER A 
RIJMENANTS PAUL 
SCHOLENGEMEENSCHAP TIKB 
SOCIETE ENTRETIEN GEST TECH, 
ST LEO CONPUTERCLUB 
ST-FRANCISCUS ENST ETUUT 
BEEUNKENS J.P. 

THONANCO PVBA 

Т АТ DONIEN 

URBAN P 

VAN BRELEN M 

VAN CORPERNOLLE ERIC 

VAN DEN BERGE 205 

VAN HILLE 

VAN MEERBEEK H 

VAN NOTEN В 

VAN OVERVELD HENRI 

VAN PUYVELDE J.F 
VANDENABEELE 

VANSTRAELEN PAUL 

VELGHE NOEL 




















POEDERLESESTEENNES 125 
BURBGRAVENSTRAAT 64 
OPLINTERSESTEENNEB 33 
VINKERDAL 32 

RUE DE GRIVET 22 

AV, BRDELSTVELD 9 
WILDE KASTANJESTRAAT 12 
BURGSTRAAT 20 

ST RUMOLDUSSTRAAT 28 
HILDE KASTANJESTRAAT 15 
ALLENHOF 93 
FLAKINGOSTRAAT 39 

18 RUE А, HOTTAT 
FNOVEMBERLAAN 5 
KASTEELSTRAAT 133 

RUE DE LA SARRIETTE 42 
KAPELLESTRAAT 46 
KASTEELSTRAAT 14 
RABOTSTRAAT 44 
22 AV, BELLE HORIZON 
VITAL DECOSTERSTRAAT 42 
У SERINGENSTRAAT 

RUE JEAN DERAECK 41 
FILIP DE PILLECIJKLAAN 20 
BOOREINDE 52 
KOOLMIJNLAAN 310 
KINEASTLAAN 2; 
BOONBEKELAAN 4 

87 ^ RUE DE L'INSTITUT 
AV, LA TENDERIE 70 
TIENSESTRAAT 57 

543 VIEUX CHEMIN DE BINCHE 
STATIONSDREEF 70 BUS 7 
COLLEGESTRAAT 60 E 

RUE DU MOULIN 20 
BRUANESTRAAT 47 
HOOGSTRAAT 25 

RUE DE COURCELLES 154 

PR STEFANIEPLEIN 43 BUS 8 
OOSTEEKLO DORP 16 
ZAVELSTR, 908/4 
INTSTRAAT | 
POTTERIJLAAN b 
PASTORIJSTRAAT 40 

RUE DU PROGRES 331 ETI 
BLAUNNUISSIRAAT 1 
KASTEELDREEF 2 

RUE CLAUDE DEBUSSY 18 
ALSENBERGSESTEENHEG 197 
HESTSTRAAT 25 

BATTICEL 13 
BROTENHOUTLAAN 38 
BENTSESTEENHEG 142 
ASPERGEVELD 21 

104 RUE DU VALLON 

VAN GRAMPERENSTR, 26 

RUE P VERSCHELDEN 32 
BRAAKSTRAAT 42 

b AVENUE DE LA PAIX 
MIEREBENSTRAAT 129 

KLEIN TEGELRIJ 18 
KOEKSKEN 53 





m 








2810 HERENTALS 

9900 EEKLO 

3300 TIENER 

9810 GENT/DRONGEN 
6345 VILLERS-SAMRON 
1180 BRUSSEL 

8810 ROESELARE 

8230 DUDENDURG 

1851 ERIMBERGEN 
8810 ROESELAERE 
2770 RIEUBKERKEN - HAAS 
9000 GERT 

1050 BRUSSEL 

3500 HASSELT 

2700 ST-NIKLAAS 
1348 LOUVAIN LA NEUV 
9050 EVERGEN 

8240 GISTEL 

9050 EVERGEN 

1310 LA HULPE 

3000 LEUVEN 

3900 LOHMEL 

1150 BRUSSEL 

9150 HAMME DURM 
3190 WESTERLO 

3540 ZOLDER 

9030 GENT 

2719 HOBOKEN 

5808 ПЕ 

1170 BRUXELLES 
3400 LANDEN 

7000 MONS 

8900 ROESELAERE 
2300 TURNHOUT 

730 BOUSSU 

8800 ROESELARE 

1512 DNORP 

6040 JUNET 

8400 OOSTENDE 

9969 ООЗТЕЕКІО 
2410 HERENTALS 
9308 HOFSTADE-AALST 
2189 KALMTHOUT 
3530 HOUTHALEN 
1000 BRUSSEL 

8042 DOSTKAKP (HERTSBERGE) 
3850 BRAKEL 

1070 BRUXELLES 

1512 BEERSEL 

8770 INGELHUNSTER 
1940 ST. STEVENS WOLURE 
2350 VOSSELAAR 
9800 DEINZE 

2840 HAACHT 

1320 GERVAL 

3071 KORTENBERG 
1090 JETTE 

2128 BRECHT 

1420 BRAINE L'ALLEUD 
1890 HERCHTEN 

3911 NIEUSERKERKE 
8752 BAVIKHOVE 


VERFAILLIE R 
VERHOOST Р 
VERHEULEN А 
VERMEULEN 1 
VERVRECKE HANS 
HENANTS P 
WILLERS F 
YSENBAERT EDDY 
ТАРМЕН 10 


ARA MARDIROSOFF 
ARTEEL 

BAERT 8 

BANQUE NATIONALE 
BEKAERT 2 
BLANCOURERT 6 
ELIECK R 

BRYS 

CALLEBAUT 8 
CARTON 

DAN VIVIEN 
CLEMEUR H 
COLLAER-VALKENBORGH 
COLLEGE HEILIG KRUIS 
COLLET € 

CRAB RIK 

DAENEN J 

DE BACKER D 

DE BOE HILDE 

DE JONGHE F 

DE WAELE P 

DELEU A 

DENDAL J 

DERWAEL P 

DERYCKE M 
DESANTOINE YVES 
DESPLECHIN 
DUMAREY 

ERES MOL 

ELFERRA] BOUCHALER 
ENSELS GEERT 
ETABLISS ROBBERECHTS PVBA 
EXPEELS B 

SEERS М 
BEHEENTEKREDIET VAN BELGIE 
SERIN D 

SUBERT J 

BORIMONT 

IEMANTS 6 

JACOBS 

JERNE Y 

KüRFINA 

KUNS F 

KUSSENER 

LAPORTE ST 


KASTEELSTRAAT 50 

RUE DE L'ECOLE 89 
RINGLAAN 140 
PAPESTRAAT 5% 
BOONSARDSTRAAT 30 
KRIJGSLAAN 91 
ERCOTYELDSTRAAT 30 
TREE DREVEN 23 

H. VAN BREDEROSTRAAT 2 


CLOS DU DROSSART & 
BIEZENHOF M17 
BEMEENTEPLEIN 20/112 
5 BV DE BERLAIKONT 
PRIESTER SOCQUETSTR 41 
OSCAR COLBRANTTSTR 85 
UDSTRIJDERSLEI 45 

6 DAVIDSTRAAT 4] 

Н HARTLAAN 26 
LYTTESTRAAT 3 
EINAARTLAAN 12 

AV SIBELIUS 16 BT 18 
ELGERREIDESTRAAT 14 
PELGERSTRAAT 33 

AV RONMELAERE 193 M 
HOGELAND 125 
OUDESTRAAT 58 
KOEKELRERGLAAN 22 
DOORNSTRAAT 55 BUS 3 
KAFELSTRAAT 5 
EUROPALAAN 25 
FRANSLAM 93 

8 RUE DES PHLOX 

AV BRIGADE PIRON 95 А 
SIL. DE PELICHYLET 25 
BETAARDLAAN 7 

RUE DU SAULCHOIR 2 
VAARTSTRAAT 44 
LICHTSTRAAT 55 
DAERENSTRAAT 25 
MOREKSTRART 49 
ANTWERPSESTEENREG 150 
BNJELTERSTRAAT 79 
RENAISSANCELAAN 30 P 137 
PACHECOLAAN 44 

4 RUE SATE-COBOURG 

DE BERGEN 9 

RUE DU 12e LIGNE 11 
SCHUTTERSTRAAT 8: 

2 CLOS DU COLIRET 
ERAND-ROUTE 66 

KIN, TACKLAAN 85 
BAKSVELD 23 
LEUVENSESTEENNES 70/2 
KERKSTRAAT 162 





8830 HOOGLEDE 

5158 DAVE 

3583 DVERPELT 

8810 WEVELGEM 

8800 ROESELARE 

9000 GENT 

3091 KAMPENHQUT-RERG 
9830 ST, MARTENS LATEN 
9000 GENT 


1180 BRUSSEL 

8900 ROESELAERE 
8790  HAREBEN 

1000 BRUSSEL 

8510 KARKE 

9110 BENT 

2130 BRASSCHAAT 
8000 BRUGGE 

900  AALST 

8950 POPERINGE 
2050 ANTWERPEN 

1070 BRUXELLES 
3210 ST-JORIS-HINGE 
3880 MAASEIK 

1090 JETTE 

3000 LEUVEN 

2980 BOORTMEERBEEK 
1080 BRUSSEL 

8970 POPERINGE 

2648 STEENDORP 
9120 DESTELBERGEN 
8450 NIEUWPOORT 
1170 BRUXELLES 

1080 BRUXELLES 

2232 "e GRAVENHELEL 
1850 HEISE 

7940 TOURNAI 

8240 GISTEL 

2400 HOL 
2600 PERCHEN 
9030 КІН БЕН 
2140 HALLE 
9000 BERT 
1040 BRUSSEL 

1000 BRUSSEL 

1030 BRUSSEL 

2241 HRLLE-ANTHERPEN 
4800 VERVIERS 

2370 ARENDONK 

1338  MARANGART 
4368 OREYE 
8500 KORTRIJK 
380 KESTERLO 
2800 RECHELEN 

8370 BLANKENBERGE 
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AURENT ROMAIN MACHTEGALENSTRRAT 114 3202 LINDEN 
ETECHEUR D ША] INDUSTRIE 28/32 590 CINEY 808 THEG MARTIN SURINAMEPLEIN 2/1 1058 БР ANSTERDAN NEDERLAND 
HERLEVEDE BRUGSENES 32 8300 IEPER DE BOER SIPKE ANTONIE DUYCKSTR. 171 2582 TJ DEN HAAG NEDERLAND 
MEUNIER B BD DE SMET DE MAYER 393 1090 BRUSSEL DE HOOS ADRIAAN BEELVINKBAAI 94 2904 BC CAPELLE A/D YSSEL NEDERLAN 
REURAN 38 AV. DES FONDAISONS 7450 MINY DE JAGER J.C JOSEPHUS JITTASTRAAT 25 3052 PR ROTTERDAM NEDERLAND 
0083 à RUE ROBERT SCOTT 10 1180 BRUXELLES DE RIJK 8, KLAVERHEIDE 44 1511 XX OOSTZAAN NEDERLAN 
NOULIN C CHAUSSEE ALSERBERG 345 BT 5 1180 BRUSSEL BELYOYE J Й, ARONDEUSSTRAAT &2 4333 DB MIDDELBURG NEDERLAND 
HOYSON HORTSELSTR 18 2520 EDEBEN DESSART JEAN 8 H HOENSTRAAT 8 6243 BE GEULLE NEDERLAND 
15524007 STATIONSSTRAAT ó 8020 DOSTKANP DEKRA 2, AKKERHOORNELOEN 37 317 KR LEIDEN КЕЕ 
AUL COPPENS KON ASTRIDL 45 2300 TURNHOUT МЕТІ, DE ROSKAN 141 5912 JR VENLO NEDERLAN 
PEETERS А PEPERSTRAAT 40 3071 KORTENBERS DIGNUM P, SEEN 7 1703 EG HEERHUGOWAARD NEDERLAND 
PINTELON D EKSTERSTRAAT 30 8401 BREDENE DIJKENA W, ZANDSTEENLAAN 123 9713 TK BRUNINGEN NEDERLAN 
RIJKSNORSAALSCHOOL : CLAEYS LEDEGANCKSTRAAT 8 9000 GENT DINGEMANS KEES STADSPOLDERRING 187 3315 CI DORDRECHT NEDERLAN 
DELANDS L DRIEHGFVELDENLAAN З 1743 DILBEEK DOORNENEAL 4, OUD AA 39 A 3891 LY BREUKELEN NEDERLAN 
ROTTHIE GOUDENREGENLAAN 27 2700 SINT-NIKLAAS DRIESEN RANS HEGERKEER 25 1509 HH ZAANDAM NEDERLAN 
SCHEPERS 1 ST JORISGILDE 53 9330 DENDERHONDE ESWELD C. ANTILODPSTRAAT 48 5531 TR NIJMEGEN NEDERLAND 
SHEESTERS H X. V.LOTHARTNGENSTRAAT 9 3000 LEUVEN FIEVEL HUUR НОБЕНЕВ 31 5247 CH GRONSVELD NEDERLAND 
SHET E GOEDENDAGSTRAAT 17 2300 TURNHOUT BOVERS V. AF. VAN RIELLARN 32 3571 WË UTRECHT NEDERLA 
SOUDAN FH RUE DES COLLETS ROUGES 14 7500 TOURNAI BRUITERS 8 AURAHOF 12 5801 JE VENRAY NEDERLAND 
ST LEO COMPUTERCLUB RLAUNHUISSTRAAT | 8042 OOSTKAMP (HERTSBERGE) BYSEN L, DR, V.D, HORSTLAAN 58 2641 RW PIJNACKER NEDERLAND 
STEENSSENS OUDE MOLENSTRAAT 24 2700  ST-NIKLAAS HEYHOFF DE HIJZEND М 1474 PH OOSTHUIZEN NEDERLAND 
STOUT N VERZUSTERINGSLAAN 36 2700 ST NIKLAAS HOVENS A.V, POSTBUS 214 8880 AE DOSTERREEK NEDERLAN 
SR INNER J LEMMENSLAAN 34 3180 WESTERLO JAARSMA J.C, EIKENHORST 29 2402 RN ALPHEN A/D RIJN NEDERLAN 
TEMNERNAN W GROENE WEE 18 9380 WIEIE-LEBREKE JONGEN PETER ZEENANHOF 25 2871 JH SCHOONHOVEN NEDERLAN 
TOPFF GUY VOSGENBERSSTRAAT 538 2410 HERENTALS KARSTEN JOS Р, SARPHATIESTRAAT 108 AMSTERDAM NEDERLAND 
VAN DANNE TER BEENDEN 52 9700 IZEREN KEPPENS Р. VAN BRONCKHORSTLN 114 2242 Pl WASSENAAR NEDERLAND 
VAN DE WEYER OLMSEBAAN 230 3990 HEERKOUT КОР HEN BURG. SHEETSSTRAAT 39 8154 6H MUNSTERGELEEN NEDERLAND 
VAN DEN BERGHE GUIDO HIJVENDRIES 1A 2689 ST AMANDS LAUTENSCRUTI J DE ІТ 21 H32 D VOLENDAN NEDERLAND 
VAN DER SLOTEN TRNDVDORTSTRAAT 25 3100 HEIST OP DEN BERG KOEYES F, RAAL 4 1422 SX UITHOORN NEDERLAND 
VAN DER VEKEN KHELELSNEG 18 1390 AFFLIBEN PADNOS VAN DE MEERWEG 10A 3233 EX O0STVODRNE NEDERLAND 
VAN DRORHE GALGENBERGSTRAAT 48 9290 BERLARE PANNEKOEK (ЕН MENKEMABORG 22 7808 GB ALMELO NEDERLAND 
VAN EETVELDE BEVRIJDINGSLAAN 194 9330 DENDERMONDE PIELAAT OSCAR DIEPENERGCKLAAN 31 3335 AA ZWIJNDRECHT NEDERLAND 
VAN HOOF BART STEENWINKELSTRAAT 515 2421 SCHELLE POSTHA TONNY OOSTHARSUNSESTRAAT 97 7572 AB OLDENZAAL NEDERLAND 
VAN LENT 27 BOSUIL BUS 62 2100 ANTWERPEN PRINS ARIE SCHOLEKERSTRAAT 1 3222 BL HELLEVOETSLUIS NEDERLAND 
VAN ROMPAEY F DE BEUKELEERLAAN 5 2230 SCHILDE PRUNMEL KERKSTRAAT 35 9841 AM VEENDAM NEDERLAND 
VAN TOURNHOUT J BRUGSESTEENKEG 542 8800 ROESELAERE RAAP HAVIKSHOF 11 3853 BA ERMELO NEDERLAND 
VANHOUTTE D BELLEBOSLAAN 4 8250 EERNEGEN RAATEVER JAN FAZENDADREEF 80 3563 EV UTRECHT NEDERLAND 
VANKE IRSRILCK ARHOEDESTRAAT 47 8810 RUMBEKE RISON HENDRIK LUXEMBURSSTRAAT 17 6164 BS GELEEN NEDERLAND 
VANNESTE HITNDSTRAAT 8 8810 ROESELAERE SNETJERS Р, GRONINGENHOF 26 5709 CA HELMOND NEDERLAND 
VANSAVELBERS VALKENBERG 105 3370 BOUTERSEN STOCKHORST J.W CETNTUUREARM NOORD 19 9301 NR RODEN NEDERLAND 
VERBERCKMOES МЕТОООКМ ААН 16 2790 BEVEREN-HAAS TAMPOEBOLON H, ADM LONCKESTRAAT & 4702 ХН ROOSENDAAL NEDERLAND 
VERCRUYSSE 4 N DE TIERESTRAAT 135 9700 OUDENAARDE VAN AMERONGEN FRED, POTASLAND 24 1541 KH KOOS A/D ZAAN NEDERLAND 
VERMEERSCH ORVELESTRAAT 11 8591 HOEN VAN DE LAAK OFFENBACHLAAN 34 5854 RD EINDHOVEN NEDERLAND 
ҮШ E GROENSTRAAT 10 3640 OPGLABBEEK VAN DEN BROEK R, HELDE 19 8265 CP KAMPEN NEDERLAND 
NAUTHIER PH RUE STATION 83 7400 SOIGNIES VAN DER HIELE STEENVLIETSTRAAT 30 4411 BH RILLAND NEDERLAND 
VAN DER KEER Y.S. DUNANTSTRAAT 11 2131 RL HOOFDDORP NEDERLAND 
VAN DER ВЕКЕ DIRK NEPTUNUSLARN 10 1702 BN HEERHUGOWAARD NEDERLAND 
VAN DER HORP F.J. JURA 23 7807 RE ALMELO NEDERLAND 
VAN DER HULP OOIVAARDREEF 5 185 EN BLEISWIJK NEDERLAND 
VAN DINK C, MATERMUNT 5 8245 EL KAMPEN NEDERLAND 
VAN DONGE P. ROTSHEIDE 62 3049 LE ROTTERDAM NEDERLAND 
ADRIANOY P. RERESSCHOT 508 3817 PK EREDA NEDERLAND IER EVERTSENSTRAWT 1 3401 JH MAARSSEN REDERLAND 
ALPHENAUR Р, VALDEZSTRAAT 8 À 2343 IJ LEIDEN EDERLAND van HATIEN DA COSTASTRAAT 3 2M) Gb LEKKERKERK NEDERLAND 
БИК D, BELEENHOF % 2 ИГЕН МИ VAN LEEUWEN PETER ИШНЕН 30 2244 LÜ LETDSCHEKDAN NEDERLAND 
BALJE D.N. FOSTRUS 1837 и NEDERLAND VERBOON RUDOLF MARIE DE LANNDVSTR 18 пи ED LEIDEN NEDERLAND 
iE 2... at un MP кк VERHEIJEN ADRIANUS #, LOEVENSTELN 21 4254 ЕН SLEEWIJK NEDERLAND 
884. 88818 ЗИ TE KORN E , 29 Р хи 
BL P. HUSO VERRIESTETRAAT 94 524 CH ^ S-BRAUENHAGE NEDERLAND ARE шаны шин кш 
108 F, BREEZIJ 17 1152 ЄВ RHENOY NEDERLAND 





DAinamic 37 38 DAICLIC 10 DAlnamic 37 39 DAICLIC 10 








ANSELO 
BERKELAAR 
ICKRESE Y L 
009 

KORST 

BRAUN 
ROEKMAN 
BRUGMAN 

BULK 

USSTRA F 
CHAROT 

HENG 

HRIST, KID, TECH, SCHOOL 
E BRUIN P 
DE BRUYN 

DE STOPPELAAR 
DE VRIES 
DRIESSEN 
DRUIJFF F 
EBERSON 
ESMAR 
FERNANDES 
GIJTENBEEK 
HETUSHA 
HERMSEN 
HOCGBRUIN 
JONCKHEERE 
LABERWIJ 
LANDHAN 
LEVERINK 
LOOYE AP, 
LUIKEN 
MANTEL 6,8, 
ШАП 
HES 
MOLENAAR ТІНЕ 
NIEUWENAMPSEN H 
NOY P 

0017 F 
OOSTHOEK 
OUDSHOORN H 
OVERVOORDE 
PEETERS A, 
PEKKERIET 
PETERS 

PLUM 

PROP 
RIJNBERTS A, 
RUTTEN 
SCHALK ЊЕ, 
SCHRAVESANDE ED 
SEMMELINCK 
SPOELSTRA 





OPHAALSTRART 26 
BEGEMANNSTRAAT 17 

Lë V MEERDERUDORT 169 
BABACRTSHERENLAAN 902 
GLADIOLUSSTRAAT 214 
BUTNEELAAN 24 
AVENBEECK 99 
SLOTENNAKERSSTRAAT 15 
BURBGRAVENLARN 17 
ИМЕНЕ 22 
FLATAANSTRAAT 17 
RARRENEERHOF 1} 
CATH, VAN RENBESLAAN 15 
MARKTHES 222 A 
HEERENLARN 14 

VAN ZESERSTRAAT 4 C HUIS 
SILLAN 39 
TRANSVAALSTRAAT 47-HS 
78 GRAVENDIJKAL 58 
HOOGSTRAAT 15 

НОВЕ ZIJDE 48 

ANT. DUYCKSTRAAT 114 
VAN HESSENSTRAAT 63 
TSJERKELEANE 4 
CHMSTRAAT 15 
BRETTNERPAD 12 
BOSCHDIJK 271 

VAN HOUTSTRAAT 19 
ARNARUORREN 10 
COSTERSTRAAT 23 
PALUDANUSHOF 22 

FA SCHONCKSTR 1} 
WESTLANDGRACHT 43/3E 
V QUITLAND 46 
TAPIJTHEG 13 
WORTANDIJK 14 
GOCRSENES 31 
LILSTRAAT 27 

TOME 10 

TWARTEWES 51 
OKKERNOOTSTRAAT 35 
HELNBLOEH 5 

RIJKSWEG NOORD 13 
ZHANENKADE 46 
SAFFIERSTRAAT 128 
DUIVENKANP 415 
NIEUWE GRACHT ¿2 
TREEVOREN 94 
HONDSRUSLAAN 51 
GRIMBERGEN 14 
JULLANALAAN 38 
ROTENDAALSEBAAN 31 
MAGNOLIRHOF 18 


4534 10 NIQMEGEN 
5707 IK HELHOND 
2517 A2 "5 GRAVENHAGE 
2722 TL LOETERHEER 
3051 LD ROTTERDAM 
2022 DD DELFT 

2182 КІ HILLEGOM 
1825 EE ALKMAAR 

2513 HA LEIDEN 

9248 KX SIEGERSHOUDE 
3201 CP NUMANSDORP 
835 EP ARNHEN 
7804 KV ALMELO 

2525 JR DEN HAAG 
3218 VL HEENVLIET 
1093 AR AMSTERDAM 
9055 MA BRITSUM 
1092 HC ANSTERDAN 
3021 EA ROTTERDAM 
8116 CJ ROOSTEREN 
BAVEL 

2582 TP DEN HAAG 
1501 W ZAANDAA 

9247 CD URETERP 

2561 RI 'S GRAVENHAGE 
3202 EB SPIJKENISSE 
5812 HD EINDHOVEN 
6921 BE DUIVEN 

8632 NP TIRNG 

7471 18 600 

HOEK VAN HOLLAND 
4827 LC BREDA 

1058 TL AMSTERDAM 
2731 ER BENTHUIZEN 
2597 KG 5' GRAVENHAGE 
4706 LE RODSENDAAL 
7241 PA LOCHEN 

5113 KE SUSTEREN 
8603 DB SNEEK 

2121 BR BENNEBROEK 
2555 2H DEN HAAS 
3058 AC ROTTERDAM 
5951 AE BELFELD 
2925 AR KRIMPEN A/D YSSEL 
3051 ХУ ROTTERDAM 
3407 BD KAARSENEROEK 
3512 LT UTRECHT 
5872 SH NUENEN 

5828 08 EINDHOVEN 
4851 JN STEENBERGEN 
3416 JS SCHIEDAM 
Lët K2 VELP 

2685 RN BLEISWIJK 


NEDERLAND 
NEDERLAND 
REDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 


` NEDERLAND 


NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAN 

NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
REDERLAND 
NEDERLAND 
NEDERLAND 
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SPRUYT 

STEK H 

510885 
ЯЛЖ 
TISSINK 

VAN AMSTEL 
VAR DAN 

VAN DER BERG 
VAN DER GAS 
VAN DER HEYDEN P 
VAR DER KLOOSTER 
VAN 00081 ME, 
VAN DUNNE J 
VAN HILST 

VAN OUIK 

VAR ODL 

VAN SCHOOR H 
VAN MABENINGEN 
VERHOOF N 
VERWER 

VOS H 

IBARTS F 


BALDUR BROCK 
DECKHUT GUSTAV 
BOLLER H 
HERRMANN ER 
JACKLE ERNST 
LAU h, 

HARCHAND JEAN 
POTOWSKI RAINER 
ROEDER 6. 
SIKON BERND 
SPRUYT 
STEINFELD UWE- 
STROBEL H 
TUHMERS 
VEENING ALBERT 
VERVISCH 
НЕКВЕСКО WOLFGANG 
WIENKOP ШШЕ 


REVHEG 70 

"t ROODE HART 30 
OLEANDERSTRAAT 47 
FOLDERLAAN 22 
BLALEASTRAAT 7 
EDENSTRAAT 15 
SAVELSROS 245 

245 BERT VAN HESLAAN 
DEKEN KOOPHANSLAAN 55 
HAVENKEG 54 
HAS 39 
RIBESMEG | 
HOFLAAN 70 
SCHELDEPLEIN 27 
VOORSTRAAT 118 
SCHIERSTINS 19 
SAFFIERHORST 59 
ERINKGREVERMES 117 
STRAUSSLAAN 112 
NUSTELAAN 28 
RESTFRIESEDIJK98 
ISTANBOELSTRAAT 4 


HUNEFELDSTRASSE 9 
HERMERSBERGERSTR 9 
HOFER STR 18 
RICHARO-DEHMENSTR 4 
АМ HETHGARTEN 7 

AN ROHRBROOK 17 
MILHELHSTRASSE 28 
GARTENFELDERSTR 140 
HEREN FRIDSTRASSE 20 
FEUERBACHMEG 21 
REYHEG 79 
HINRICHSRING 21 
KEUSELSERUNN 51 

АН STOCKKEG 5 
TURIZERSTRASSE 23 

ST CORPS SEC ТТЕ 
INNSPRUCKERETRASSE 2 
LAERFELDSTR 54 


5133 SELFKANT SCHELBRUCH 
1981 AJ VELSEN ZUID 
516$ ER GELEEN 

3211 Ek GEERVLIET 
4511 6R BRESKENS 

3511 JN EINDHOVEN 
2716 HI ICETERMEER 
2341 HC OEGSTGEEST 
4871 AB ETTEN-LEUR 
1897 KV SCHELLINKHOUT 
2914 AA NIEUWERKERK/ IJSSEL 
1871 TA SCHOORL 

3062 JJ ROTTERDAM 
2987 EL RIDDERKERK 
3231 BK BRIELLE 

7408 ХІ ALMELO 

2592 GK DEN HAAB 

7415 CG DEVENTER 

5011 KJ TILBURG 

2082 AC CANTPOORT ZUID 
1749 CV HARMENHULZEN 
2034 ED HAARLEN 





D -7100 HEILBRONN 
D-6781 НОНЕТНОЇ 
9550 NUENCHRERE 
D-4320 HATTINGEN 
D-72218 TROSSINGEN 
D-2057 REINBEK 
5820 VELBERT 15 
1000 BERLIN 20 
D-4770 SOEST 

4030 NEUSS 21 

3135 SELFKANT-SCHAL BRUCH 
153000 HANNOVER 1 
500 NURNBERG 

5270 GUMMERSBACH 21 
D 7015 KORNTAL 1 
4090 86) 

7800 FREIBURG 
D-4830 BOCHUM | 


NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAN 
NEDERLAND 
NEDERLAND 
NEDERLAN 
KEDERLAN 





LAN 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAN 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 
NEDERLAND 











й. GERMANY 

й, GERMANY 
HEST-BERHANY 
DEUTSCHLAND 
Ч, GERMANY 

Ч, GERMANY 

W. GERMANY 
DEUTSCHLAND 

М, GERMANY 
WEST GERMANY 
WEST - GERMANY 
M. GERHANY 
BEST GERMANY 
NURDESREP, DEUTSCHLAND 
Я, BERKANY 

SPB 7 

М, GERMANY 

X, GERMANY 





DAICLIC 10 
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BANHARD BRIAN 
BRITISH LIBRARY 
CHENE РА 
COCHIN GEORGES 
ОКР ATTILIO 
UTHIE M 

HARDS COLIN 
DEN 4. 

БАП RODOLFO 
ANCASTER 
EYSTRE ANDRE 
MITCHELL J, 
ASCAL JANIN 
TERAGOSTINT VINCENZO 
READ BILL 
SALOMONI DAVIDE 
SANCHEZ FRANCISCO JAVIER 
TONISLAY MIKULIC 
URSPRUNG Н, 
VEDRANIN DANIELE 
VESTIT 

TAHNER E, 











ANDRAUD MICHEL 
ANGELONI 

BERTRAND F 
ШІКТІ J.P, 
CATHCART 6 
EMMANUEL DI MARCO 
EPPIBNER NORBERT 
GEMME 610 
BIARDINELLI NICOLA 
JOAN OLIVER FERRER 
JOEL INVERS BRUNET 
LE BIRAN PENNANROS 
LUCAPINI 6 


LUCCHESI LUCA (BANCA DP ITALIA) 


NORBEDO ROKERTO 
PORTA ROBERTO 
РМЦ F 
RAYHOND М 
SALA DOKENIC 
SARGORAPS L 
SARSON C 
SARRO 1 PLANAS 
SCIENCE REFER LIBRARY 
UNIV OF TECHN (DUNCAN) 











75 CHESTERFIELD AVENUE 
25 SOUTHHAMPTON BUILDINGS 
21 PLACE DE SEINE 

9 RIS BD JEAN JAURES 

VIA FETROCCHI 48 

19 RUE DU COLONEL FABIEN 
AS COMMERCIAL ROAD DEREHAM 
HARDINGS COTTAGE SHAN LANE 
VIA VITT, EMANUELE 10 

20 AGLIONEY 57 
RNOLAUERSTR, 10 
HILLFIELD COTTAGE 

17 CLOS DES MARGUERITES 
СЛО ENEL CIN SERV AUT 

68 BISHOP RD BISHOPSTON 
VIA PULEGA 7 

AV SAN SALVADOR 1 5 4а 
DAKICEV TRG МУ 
WALDSTRASSE 18 

VIA MAZUINI 133 

RLLEE LOGES BEUVILLERS 
IUERICHSTRASSE 155 


32 RUE DES 4 CYPRES 
VIA DELL'ARBINGROSSO 125/6 
В RLLEE DES FLEURS 
CHAMP VALLEE LOMBRON 
12 EVORA PARK HOWTH 
RUE DU TEMPLE 10 

b B INPASSE DE JULIERS 
VIA S HARTINO 164/58 
VIA BELLI 20 

TAXDIR 1 A 6-4 
C/GUADALGUIVIR 4 1 2 
89183 

(800813 4 

VIA ñ. HORDINE 26 

VIA SUEVO 22/2 
PIAZZA OBERDAN 13 

С. SO MATTEOTTI 65 
83 BOULEVARD MICHELET 
CASELLA POSTALE 69 

Í RUE JEAN JAURES 

18 RUE LEDRU ROLLIN 
BANT JOSEP 50-98 2 Ja 
25 SQUTHHANPTON BUILDINGS 
LE) 3 TU ШИН БН 


GEDLING WII 

LONDON WC2A LAN 

92400 COURBEVOIE 
32100 BOULOGNE 

20127 HILANG 

34110 ARCUEIL 

ФЕКЕНАМ NORWICH 
WINTERBOURNE AVON 
62015 HONTE SAN GIUSTO (MC) 
CARLISLE ДА 
4132 НОЛЕ 
GARRIONERIDGE - WISHAN 
73290 LA HOTTE SERVOLEI 
X LE REGINA MARGHERITA 137 
BRISTOL BS 78LY 
40133 BOLOGNA 
BADALONA 

41000 ZAGREB 

[Н-8132 БЕЛІН 

38100 VICENZA 

14100 ИШ 

CH, -991; AFFOLTERN 


85000 POITIERS 
50142 FIRENZE 
63600 DULLINS 
72450 MONTFORT-LE-ROTROU 
CO DUBLIN 

2416 LES BRENETS 
$700 SAINT-AVOLD 
16151 GENOVA 

36100 VICENTA 
08025 BARCELONA 
TERASSA BARCELONA 
22500 PRIMPOL 
50100 ANCONA 

59100 LUCCA 

34144 TRIESTE 
47039 SAVIENAND 5.8, 
19055. PATTI (ME) 
78250 HARDRICOURT 
47037 RIMINI 170) 
59560 COMINES 
94100 SAINT-HAUR 
MANRESA (BAGES) BARCELONA 
LONDON WO 1AN 
LEICESTERSHIRE 


NGA 46E ENGLAND 
ENGLAND 

FRANCE 

FRANCE 

ITALY 

FRANCE 

ENSLARD 

ENGLAND 

ITALIA 

ENGLAND 

SHISSE 

SCOTLAND HL2 ORR 
FRANCE 

00198 ROMA ПАЛ 
ENGLAND 

ПАДА 

SPAIN 
YUGOSLAVIA 
SWISS 

ITALIA 

FRANCE 

СНЕ 


FRANCE 
ПАПА 
FRANCE 
FRANCE 
JRELAKD 
SUISSE 
FRANCE 
ПАПА 
TALIA 
SPAIN 
SPAIN 
FRANCE 
ПАПА 
ПАПА 
ПАДА 
ITALIA 
ПАЛА 
FRANCE 
ПАЛА 
FRANCE 
FRANCE 
SPATN 
ENGLAND 
ENGLAND 


PROGRAMMING THE DAI IN MACHINE AND ASSEMBLY LANGUAGES 
by С W Read 


Part з — SMALL SHAPES IN GRAPHICS MODES. 


One of the attractions of machine language over Basic programmes is its 
speed of execution. This is especially apparent when working in one of 
the DAi's graphics modes. The quickest way of getting a shape on a 
graphics screen is to have that shape stored as data bytes which can be 
loaded directly into screen КАМ addresses. We will start with a simple 
shape, a small arrow, draw, move and turn it, without botbering about 
its colour. The examples are for Mode 6A with CDLORG B 2 6 9. A memory 
map for MODES 5/6 is in DAInamic 21. There is a snag in using the SPL 
asssembler because that runs in the video graphics part of the RAM, 
which means that sections of programme cannot be tested without deleting 
SPL. You may therefore wish to assemble and save any sections that 
interest you before trying them out. The problem does not arise with the 
DNA assemblers its user can switch readily between graphics and 
assembler. 


Ехатрје 1 

The shape is formed in an 8 by 8 matrix, that means it is 8 dots wide 
and 8 screen Lines high. The 8 dots width forms В bits of a single byte 
on the screen {if colour is ignored). Thus the matrix, when displayed, 
occupies 8 bytes of screen RAM. The data store holding the matrix is 
labelled SHAPE1 (programme line 20) and looks like this: 


Address Byte Binary 
(Hex) equivalent 
әдів oo обоо 60986 top line of display at #8718 
а41С за дада ooo0 2nd line at #B71B-#5A 
2410 24 oooo 0100 3rd line at 8В71В-2х9 58 
6451E өз 2004 өө1Ө 4th line at #B71B-3x#5A 
GES ЕР 1111 1111 etc 
оаза 92 особ 6416 
9421 од 9000 2190 
0422 eo ооб поре bottom line of display 


The pattern of 1s in the matrix forms the shape of an arrow. The arrow 
would fit in an 8x5 matrix (5 bytes) but a square matrix like 8x8 is 
much more convenient for a shape which may have to be rotated through то 
degrees. То form the screen display the 8 bytes ої data are placed in 8 
screen RAM locations, one below the other. The interval between the КАМ 
locations in a vertical plane is 96 (#58) bytes for Mode 6/665. With the 
initial screen location in HL register pair, the second location is 
found by deducting 90 from HL. That calculation is made using the DAD D 
instruction {line 16) which adds DE's contents (-99) to the address in 
HL. а= register pair DE holds the address of the shape data it has to be 
PUSHed (line 14) on to the Stack to save the address while DE is being 
used for the DAD D calculations it is restored again by the POP in line 
i7. The initial screen location is saved in store OLDADR, as it will be 
needed when the shape has to be deleted. 


әсі ж 

дә? * Drawing a shape, 8 dots by 8 dots: 

өх ж 

өөд ORG 14006 

сәз ваде 211887 LXI H, :B71B Initial screen address 
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A delay is provided by counting down register À from #FF to zero twice. 
& shorter delay can be obtained by omitting lines 45,483 the count #FF 











оо 9495 221904 SHLD OLDADR Save it to zero is then done only once. À longer delay сап be obtained by 
997 @49& 111504 DRAW LXI D,SHAPEL counting down a register pair instead of a single register; such a 
оов одоо даов DRAW ММІ в. 8 Number of lines scanned. routine is available in ROM at #DE41 — #DE4E but as it counts down from 
өө? өлөн 14 мхтасм LDAX D Top line of shape, #FFFF its period is too long for use here. 
о1о Ө4ӨС 77 HDV M,A moved to screen 2 
911 640D O3 DCR в Update counter $640 ж Sub-routine 
а12 049E СВ RZ Return when all done $41 9464 AF DELAY хка а Clear carry flag 
| 915 ӨЛӨР 13 INX D Next data byte address. 942 0465 SEFF DELAY1 PWI A, :FF Fill accumltr with count 
| 914 9410 DS PUSH D Save it. 943 0467 3D DELAYZ DER А Carry flag not affected. 
015 0411 1146FF LXI р,-та Subtract ӨӨ bytes to одд 6460 C26704 JNZ DEL ñY2 
916 9414 19 DAD D reach scan line below. 645 о46В ЗЕ CMC Complement carry 
| 917 6415 Di РОР р Restore data address әде 0450 DA6564 JE DELAY1 Repeat once only 
| @18 2416 C59B9434 JMP NXTSCM Da next line scan 947 GAAF C9 БЕТ 
| 919 9419 ӨӨӨӨ OLDADR DEL e ада 9470 ороо NEWADR DEL o 
| ого O41B 600004 SHAPEi рата 9,9,4,.2,:ЕҒ,2,4,09 949 9472 600000 DELSHP DATA O0,0,0,0,0,0,0,0 Blank shape 
| 921 0425 702222 SHAPEZ DATA :7С,:22,:22,:3С,:20,:20,:70,9 
| Example 3 
| To try it, when assembled, switch to Mode &A, then to Utility and give Moving a shape up or down is similar to Example 2 but this time the 
| | the commands 75 and 6499. steps, being vertical, have to be multiples of 90 bytes, the line 
| interval. A position immediately above or below an 8x8 shape is 
Example 2 therefore 8x96 bytes away, and it is + or — this value which is loaded 
| The next routine moves the arrow to the right side of the screen. The into DE (line 53) for the DAD D calculation. 
| obvious method would be to replace the screen address in line 5 with the 
| destination address and redraw the arrow there with the Draw routine. @5@ ж Call from Utility with 6400 followed by 6489 
| That would be so fast that there would be no impression of its movement. өзі ж 
When it is desired to show movement the arrow can be stepped across the 052 ORG : 480 
screen, as in this example, deleting the old shape as soon as a new one оз: 6486 11Z0FD MOVU/D LXI р,-72а БЕ--Вх90 downtor +8х90 up) 
has been drawn. Even this is too fast for visibility when moving a small esa 048% Eið MV I с,:10 To move 16 steps 
shape во a delay subroutine (line 41) has been included. An easy way ta 255 0485 281994 LHLD  OLDADR 
delete a small shape without writing a special ‘delete’ sub-routine is ese 0488 19 MVU/D2 тар D Add step value (+ or -720) 
to use the Draw routine to draw an empty matrix at the old address: the 257 6489 DS PUSH D Save step value 
old address is loaded into HL at line 51 and the address of the empty аза өавд 227004 SHLD NEWADR Save new screen position 
matrix, labelled DELSHP (line 49), is loaded into DE at line 52. А new 659 о48р сровод CALL о рвані Draw new shape 
| shape is drawn next to the old one, 2 bytes (lines 27, 28) away from the оло 2490 201904 LHLD OLDADR Get old position and 
Wë last screen position. The address of the new position is saved in the аб1 04953 117204 LXI D, DELSHP address of blank matrix 
| temporary store NEWADR so that it сап be recalled (line 34) after the 652 6496 CDO904 CALL DRAW and delete last shape. 
13 previous shape has been deleted. The number, size and direction of the 265 2499 Di POP D Restore step value 
steps must ensure that the shape stays on the screen because there is no 664 0494 247004 LHLD  NEWADR Save current position as 
inbuilt error reporting. Allowing a shape to be drawn on a Line Control 465 @49D 221904 SHLD  OLDADR last position. 
Byte for example would play havoc with the screen display! 666 64606 әр DCK с Step counter-1 
967 алі C8 RZ Return if all steps done 
922 є Moving a shape left or right: O69 одаг CD6404 CALL DELAY Wait 
673 з (In Mode óð, call from Utility with 54280 followed by 6440) 969 64485 с78884 JMP MVU/D2 Loop for next step 
924 ORG 14849 
925 9440 OE?2 MOVL/R MVI C. 122 To move 54 steps The next two examples will rearrange the matrix to turn and reverse the 
926 6442 2819094 LHLD арк Get screen address shape. The original shape is to be preserved so a data store (STORE1, 
927 0445 ?B MYL/RE DEX H Step to next posn. (DEX H line 106) will be needed for the altered shape. The store has to be 
ага 6446 2B DEX H for left,INX H for right) cleared before uses the CLEAR1 subroutine does that. 
@29 0447 227004 SHLD  NEWADRE Save position address. 
өзө 6440 CDGO604 CALL DRAWILI Draw shape at new position Example 4 
өзі адар 201904 LHLD  OLDADR Position of last shape DE holds the address of the shape to be rotated and HL the address of 
аза 0450 117204 LXI D,DELSHP Address of empty matrix the store. In turn, Bit @ of each shape data byte is copied to positions 
9455 сротол CALL DRAW To delete last shape in the ist store byte. Then all Bit ів go to make the 2nd store byte, 
6456 207604 LHLD  NEWADR Save current position all Bit 25 go to make the 3rd store byte, and so on until the final 
2459 221904 SH D OLDADR as eld address store byte has been filled with Bit 785. The store now holds the matrix 
дазс өр рек Є Step counter-i of an arrow pointing up. If the arrow is to point down the first store 
945D са RZ Return if all steps done byte is made up from all shape Bit 75. the 2nd store byte from Hit 6s, 
GASE CD64064 CALL DELAY Wait etc. Register B is the bit mask and bits are extracted by the AND 
9461 C34584 JMP Мун Loop back for next step 
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instruction (line 72) and tested for zero (line 82). The bit in the mask 
is moved ready for the next set by the rotate instruction (line 71). The 
mask also doubles as a second counter: the rotate instruction rotates 
through the Carry flags therefore when the i in the mask reaches the 
Carry and sets it, 8x8 bits have been copied and the routine ends. 
Lines 74 and 91 have to be altered as shown in their Comments to make 
the arrow point downwards. Run the routine in Utility with 6489. Then if 
you wish to display the new arrow on the screen, change line 7 from LXI 
р,5НАРЕ1 to LXI D,STOREi by substituting ED for iB in the object code at 
9407. Utility command 6488 will then display оп the Mode 68 screen 
whatever shape is in STUREI. 


676 ж Rotating a shape from horizontal to vertical: 


971 ж 

972 ORG : 450 

673 o4Bo СрЕФОЯ TURN CALL CLEARI Clear STOREL 

074 OA4HBHS 96091 TURNI MVI B. 91 Mask, 91 for Up or #8@ Dn 
975 OABS 21Ер04 LXI H,STORE1 Shape to be rotated 

ауа @4B8 111808 TURN2 LXI D,SHAPEi1 Store for rotated shape 
077 O4HBH GERS MVI C.8 To transfer 8 bits 

078 давр 1A TURNS LDAX D Get data byte 

679 ОЯ4БЕ oo ANA B Get 1 bit, setting the 
ово + zero flag if the bit is @ 
egi @4BF 7E MOV A," Byte to be changed 

авг өлсе CACS594 JZ ZERÜ If амред bit was o 

ess eacs Ебва ORI :80 Set Most Significant Bit, 
084 @4CS 67 2ЕКО RLC move it along 1, and 

egs о4С% 77 MOV M,A return it to STORE. 

өне 6407 13 INX D Next data address 

өн? BACH өр DCR с Update bit counter 

opp еасо C2BDe4 JNZ TURNS If <8 bits done 

689 васс 23 INX H Next address іп STOREI 
eye оаср 78 ном А,В Bit mask into accumulator 
991 @4CE 17 RAL RAL for Up (оғ RAR for Dn) 
992 ACF DB RC Return when 8 done. 

995 GADO 47 MOV B, A Updated mask to B 

өөд 0401 C5S5864 JMP TURNZ 

295 ж Sub-routine 

076 + Clear a temporary store: 

әзу ORG :4ЕӨ 

осв oäto 21ЕрОЯ CLEopi LXI H,STOREi Address of data store 
299 GES 0608 MV I B,8 Load B as B byte counter 
100 e4EZ АР XRA а Zero the Accumulator 

ioi D4E6 77 CLEAR2 MOV м.а Zero the data byte 

192 ОДЕ7 25 INX H Next data address 

105 @4E8 95 DCR B Counter-i 

104 94Е9 C2EÓ604 JNZ CLEARZ When <8 bytes done 

195 e4EC C9 у БЕТ 

106 94ED 000060 STOREL рата 2,0,8,29,0,9,0,9 Temporary shape data 


Example 5 

Two bit masks, rotating in opposite directions, are used when reversing 
a matrix. Register H starts at bit @ and L at bit 7. The L mask із also 
used as a counter (lines 150, 132). HL initially starts by transferring 
the shape^s address to а temorary address store {lines 115, 114 and 
140), and moving its ist data byte, via the accumulator, to the stack. 
HL then receives its bit mask information (line 117) and H is used to 
extract a shape bit (line 129). If that bit is set, the L mask is used 
to set an appropriate bit in STDREi data (lines 122-124). When all 8 
bits have been reversed, the next bytes of both SHAPEÏ and ЗТӨНЕ1 are 


addressed, the byte on the stack being no longer wanted is removed 
{lines 155-158), and the programme loops back to line 114 to deal with 
the next 8 bits. Calling the programme with 6500 will place an arrow 
pointing left in the matrix of STOREI. It can then be displayed by 5490 
as discussed in the previous example. 


197 % Reversing a shape: 


198 + 

199 ORG 2500 

iio опао СЕӨӨ4 REVERS CALL CLEñR1 Clear STORE1 

111 2385 11ED@4 LXI D,STORE1 Ready for reversed shape 
112 95686 ӨЕӨВ MV I с,в В byte counter 

115 ӨЗӨВ 2118064 LXI H.SHAFE1 Shape to be reversed 

114 6505 225185 REVRS1 ӨНІП TMPADR Save the address 

115 ӨЗӨЕ 7E мом AM Get shape data byte in ñ 
116 ОБЗОР F5 PUSH  PSW and save it on Stack. 
117 0519 218001 LXI H,: 9189 Masks, H=bit 0, L-bit 7 
118 9515 Fi НЕУНЗЗ РОР PSW Restore data byte to A 
119 0514 ЕЗ PUSH PSW and put оп Stack again. 
29 өзіз да ANA H Get 1 bit in accumulator 
121 9516 CA1C95 JZ REVRS2 If it is zero 

122 9519 in рах D Else set the 

123 9514 BS ОКА L. appropriate bit 

124 @S1B 12 STAX D in data БТОВЕЇ 

125 @S1C 7C REVRS2 MOV AH Get mask, update bit 

126 ӘЗІР 97 RLC number to be fetched 
127 ӘЗІЕ 67 мом н,а arid put it back in mask. 
128 ӨЗЇР АҒ хка A Clear any flags 

129 6526 7D MOV AL Get Znd mask, update bit 
136 0521 ЈЕ как number to Бе set and 
ізі 9522 6F MOV L, A put it in L. again. 

152 0523 021595 JNC KEVREX When <8 bits done 

133 0526 13 INX D Next STOREI address 

154 9527 283195 LHLD — TMPADK Get last address 

155 e52n 23 INX H and step it on one. 

156 6525 Fi РОР PSW Clear top of stack 

27 өз2С Өр DER c Update byte counter 

138 є52р U2eBe5 JNZ REVRS1 When <8 bytes done 

159 6520 C? КЕТ 

149 90531 ӨӨӨ TMPADR DBL © Temp’y address store 

131 * END END 


The principles used in these examples can also be applied to the lower 
resolution graphics Modes by changing the initial screen location 
address and reducing the number of steps taken across and/or down the 
screen in the "move? routines. The small matrix used for the 
demonstrations has little practical value apart from its use for text 
characters, one of which is provided in ЗНӨРЕ2 (line 21). ñ useful DAI 
character set is shown in matrix diagrams in DAlnamic 25. Digits and 
upper case letters can be accommodated in an 8х8 matrix but lower case 
text needs 8X16 matrices. If you wish to try an Bx16 matrix in Example 
i, write it іп SHAPEi as 18 bytes of data instead of 8, and change the 
register В counter (line 8) from 8 to 18 (#64). Also change the blank 
matrix (line 49) from 8 zero bytes to 10. Fart 7 will deal with larger 
and non-symmetrical matrices, and colour. 
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PROGRAMMING THE DAI IN MACHINE AND ASSEMBLY LANGUAGES 
by Є М Read 


Part 7 — MORE GRAPHICS. 


The 8х8 matrix used in Part 6 for drawing and manipulating small shapes 
is rather too small for most purposes. We will now draw а 16x16 matrix 
shape in MODE 68. From there it will be а simple matter of increasing 
the values in seither or both line-scan and byte counters to draw higher, 
wider or larger shapes. 


Example i 

In this example the shape is 2 bytes (16 bits) wide, register C being 
used to count the bytes (line 8). The screen display will occupy 2 bytes 
on each of 16 lines (still ignoring colour), register B counting the i6 
lines. The first scan across a screen line draws the top line for two 
data bytes, the second scan draws the 2nd line for the same 2 bytes, and 
sa on until 8 lines have been put on screen. Then similarly, scans 9 to 
16 draw the 8 lines making up the next 2 data bytes. Obviously the data 
bytes have been positioned in the shape table to suit this seguencial 


process. The matrix shape table is at Shapeñ (lines 54-50). 


201 + 16x16 SHAPE IM MODE га 








951 ORG : 400 

252 ж SHAPE TABLE Bytes Equivalent matrix Screen 
955 ж Нех ) of ібхіб bits line 
аза одод OO7C Shapeñ DATA 6999 dant, Ө111 1100 1, top 
955 9407 0422 DATA додо 0190, 90190 әдіз 2 

озь одо4 @222 DATA 2 2 опоо 09010, ooio 9916 5 

937 6406 ЕЕЗС DATA :FF,:3C 1111 1111, 0011 1100 4 

258 e408 97226 рата с:02,:20 6600 0010, 90190 доба 5 

239 дада 0420 рата :94,:2Ө 0000 0100, 0010 ӨӨӨӨ 6 

одо лос 0070 DATA  :00,:70 Өөдө борд, 8111 ӨӨӨӨ 7 

041 @4@E ород DATA :00,:00 6006 обоо, ообо ӨӨӨӨ 8 

942 + 

945 6410 1С08 DATA sit 9091 1100, ӨӨӨӨ 1000 9 

944 0412 2298 рата 2:22 әдіе 0010, 0000 1900 10 

045 2414 2998 DATA сза0 $010 одоо, 99000 1000 11 

ода 9416 1008 DATA  :1C, 0001 1100, HOGG 1000 2 

947 9418 2208 DATA :92, одоо 0010, ӨӨӨӨ 1000 15 

048 64160 222A DATA 222 га1а өдіс, 9019 1019 14 

949 @41Ü 1С1С рата  :1C, 9001 1100, 9001 1100 5 

9250 941Е 0998 DATA :90, одоб өөө, ооо 1000 16, bottom 
өзі END END (Temporary. Remove when adding sub-routines) 


As this particular shape is made up of 4 small pictures it can be 
rearranged to draw the 4 next to each other (32x8 matrix) or one below 
the other (8x52 matrix). 





газ ж 
Qu ORG : 300 
994 9300 211887 Draw LXI Н,:В7ІВ Initial screen position Example 2 (32x8 matrix) 
eos axes 22295 SHLD  OldAdr Save it The horizontal arrangement needs 4 data bytes on each line of Shapeü 
овь өхөв 272DOz Draw2 SHLD TmpAdr instead of the present 2: move the data on lines 45-20 to the 3rd and 
обу 0509 110004 LXI D.ShapeA Shape data address into DE 4th positions on lines 54-41. The height counter (line 8) has to be 
оов әзәс oala MV I B. 16 Counter, 15 scans (height) changed from 16 to 8 and the width counter (line 9) changed from 8 to 4. 
ойо озок әке? Drawl MVI с,2 2x8 bytes (16 bits wide) This method is useful for putting a line of text on a graphics screen 
ота ozio 18 NxtScn LDAX D Get 1 byte for 1 scan line very rapidly, the width counter then being loaded with the number of 
611 esii 90 МОР (Reserved) characters required. 
912 ӨЗ12 77 MOV ма Shape byte to screen 
@1Z 2513 2B DEX H Step right to even byte Example 3 (8x32 matrix) 
614 0514 ӨӨ NOP (Reserved for possible For the vertical arrangement the 4 packets of data have to be in 
а15 2215 ӨӨ МОР colouring instruction) sequence, from top to bottom: the height counter will be 22 and the 
өле 8516 2 DEX H Next position on screen width counter 1. 
917 83517 13 INX D Point ta next data 
Фів өсін гр DCH с А11 shape bytes scanned ? COLOUR: Although the colour of the shape has been ignored until now, it 
219 0319 C21003 JNZ NuxtScn Loop if not. is not difficult to insert or change the limited colour information 
ага OZC өз DCR B Line count -i needed by any 4-colour Mode. Shape data was inserted into odd numbered 
әгі өзір ЄВ RZ Return if all done screen RAM addresses. The adjacent even numbered addresses fodd 
өзг ӨЗ1Е 2A2D635 LHLD Tmpñdr Start address of last scan address-1) were left alone and therefore still contained Әй as a result 
агх 9321 DS PUSH D Save data pointer of setting MODE 68. The colours are obtained by comparing bits in the 
ара 6272 1146БЕ LXI D,:FFA6 Add -99 to Tmpâdr іп HL to odd byte with corresponding bits in the even byte. Various colours can 
225 0225 19 DAD D reach line below. be chosen not only by filling the even byte with 66 or #FF, but also by 
осы ахра эоорәс SHLD ТарАаг Save the amended address. copying the shape data to both bytes ог by complementing either or both 
аг7 өз21 рі РОР D Restore data pointer bytes. If we let A, B, Є and D represent the 4 COLORG colours the three 
оов ӨЗРА CSOEOZ JMP Drawi Loop back for next scan. NOPs reserved in Example i can be replaced to obtain the desired colour 
929 охор өөө TmpAdr DEL ә arrangement as follows:- 
озо ZIF 0000 Өлдіге DEL а 

Screen RAM bytes. Programme lines, with op codes Colours of shape 
The shape data format 15:— ода Емеп in brackets Back- Fore- 
Lines 54-41: The ist bytes from all B lines form the upper left quarter. {see Note) 11 14 and 15 ground ground 
The 2nd bytes from the same lines form the upper right quarter. sd eo NOP (06) МӨР МОР teo o0) а с 
Lines 45-59: Similarly, all the ist bytes form the lower left and all sd #FF NOP (ee MVI M, :FF (X6 FF) B D 
the 2nd bytes, the lower right of the shape. sd sd МОР (ад) МОР MOV M,A (оо 77) а D 

sd ced МОР (60) сма MOV M.A (2F 77) в с 
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csd аё сма (2F) NOF NOP (oo 89) с а 
csd #FF CMA (2F) MYVI M, Str (56 FF) D B 
csd sd CMA (2F) CMA MOV М.А {2F 77) с в 
csd сей CMA (2E) NOP MOV М.А (бо 779 D а 


Note: sd-shape datas csd=complemented shape data. 


A shape may be deleted as described in Part б, using an empty matrix, 
but a delete sub-routine is more economical for larger matrices. 


Sub-routine “DELETE” 


аза ORG 2340 

әзі 03460 2A2FO3 DELETE Нр  OldAdr 

оза озаз 222003 SHLD  TmpAdr 

955 9246 1106FF LXI р,-7а Step to reach line below 
256 0347 0610 MVI В,16 Line counter 

097 O34B AF хка а Zero in А 

ОЮН озас өЕӨ2 DEI 1 MVI с,2 Data byte counter 

059 ӨЗДЕ 77 DEL? MOV M, A Delete screen odd byte 
оба ОЗ4Б 2H DCX H Step to next even byte 
061 DIS 77 MOV ма Delete even byte(colour) 
фар 9351 28 DCX H To next screen odd byte 
HAS 0352 өр DCH c i pair (oddteven) done 
064 азал C24E03 і JNZ DELZ 

eos 2356 o5 DCR B 1 line done 

обо 9557 C8 RZ Return if all lines done 
067 0558 загроз LHLD TmpAdr Else find 

258 оз5в 19 DAD D address of next 

969 O35C 222DO63 SHLD Тарбаг line, and save it. 


979 ӨЗЗР C54C93 JMF DEL 1 Loop to clear it 

Moving a shape is also similar to the method described in Part 6, but 
here, as a variation, the movement is at an angle, each step (line 77) 
being 19 lines down and 18 positions to the right. А call to а delay 
routine like that in Part 6 сап be inserted in place of the NOPs {lines 
84-86) to make the action more visible. 


271 ж Sub-routine "MOVE? 


ауз ORG 1579 

975 6370 2А2РФЗ MOVE LHLD OldAdr 

974 0373 1172FC LXI D,-719 јахта bytes down.and 19 
075 + places along each step. 
076 8576 ƏE97 MVI E Step counter 

077 0578 19 MDVE2 DAD D Add DE to HL. 

978 28579 DS PUSH D Save step value 

979 ALFA CS PUSH B Save counter 

ego өзун 229703 SH D Мєнбаг Save new address 

081 o37E Сравәз CALL Draw2 Draw in new position. 
овг OSHi загроз LHLD Тарасе Address last position 
eus 05894 срадоз CALL DELETE Delete last shape 

ода 0587 eo NOP Reserved for 

әне өзне oo мағ ?CALL Delay” 

ова 095859 өө MOP if required. 

өну езва Сі РОР в Restore counter 


ова озвв Di POP D and step values. 

999 ZBC 249705 ІН) Менс Put new address in 

өзе GSHF 222F065 SH D Oldâdr old address store and 
091 2592 ар DCR с Update counter 

092 0393 са RZ End if all done 

095 6394 С57803 JMP MOVEZ Loop back far next draw. 


994 0397 оброб Менааг DBL e 
925 END END 


Store for new position 


Colour in MODE SA is not quite so straightforward because of the 
increased choice of colours and the fact that the background colour of 
one field is carried forward into the next field. The shape data again 
goes to the odd numbered byte of the screen RAM and the colour data to 
the even byte. Colour data is in the form of 2 Hex digits, the ist being 
the foreground colour and the ?nd the background, eg: when the colour 
byte is ЖІВ the f/ground is dark blue and the b/ground is pink (colours 
1 and 11). The programme below gets its colour information from the 
ShapeB data table, where each shape byte is followed by its colour byte. 
Line 15 puts shape data on the screen, line 18 sets the colour data. ñ 
shape can thus make use of many colours. If only 2 colours are required 
it is possible to omit the colour data from the shape table and set all 
field colour bytes to the same value while drawing the shape. The 
programme can be altered to do that: change line 17 to MVI M.:1B tor a 
pair of colours other than #iB), and make line 18 NOP. Lines 19 to із 
set the colour (even) byte of the field to the left of each line of the 
shape, to avoid the screen b/ground being carried forward into the 
shape. The value inserted here is #88, the B matching the зћаре:5 
b/ground colour and the 8 matching the b/ground of the rest of the 
Screen, assuming that a grey screen is in use. 


901 ж Example 2: А 16x16 SHAPE IN MODE SA 
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өөг ж 

eo ОКБ : 300 

204 өвөө 2103B7 Draw LXI H, : B793 Initial screen position 
205 05053 223105 SHLD Tmpñdr 

доб 4508 223305 SHLD OldAdr 

997 0509 114005 LXI D,ShapeB Shape and colour data 

208 өзөС 9619 MVI 8,16 Counter for 16 scans 

909 oSOE ӨЕӨ2 Drawi MVI с,2 2x8 bytes wide 

218 9519 23 INX H Change colours of adjacent 
911 9511 Zepp MVI M.:8H field to avoid continua- 
$912 0515 2B DCX H tion of oid b/g colour. 
215 9514 18 xtScn LDAX D Get 1 shape byte in А 

214 9515 13 INX D Step to odd screen byte 
915 0516 77 мом ма Shape byte to screen 

916 9517 2B DEX H Step to even screen byte 
217 9918 іа LDAX D Get 1 colour byte in ñ 
@18 9519 77 MOV M, À Colour byte ta screen 

919 6514 2B DUX H Next position on screen 
әрә өзів із INX D Point to next data 

өрі omit әр DCR с А11 chars scanned ? 

622 9510 C21405 JNZ NxtSen Loop if not. 

925 Өзгө o5 DER B Deduct 1 from scan counter 
924 @521 єв RZ Return if all lines done 
925 обор 243165 LH D Tmpñdr Startaddr last scan 

926 60525 05 PUSH D Save data pointer 

927 6526 1146FF LXI D,:FFAG Deduct 9Vôbytes from TmpAdr 
отв 0529 19 DAD D in НЬ to step down 1 line 
929 езга 223105 SHLD ТараАаг Save the amended address. 
өзе өз2р Di РОР D Restore data pointer 

951 @S2E СЗӨЕӨЗ JMP Drawi Loop back for next scan. 
252 Өзз1 бөрө Tmpâdr DEL ә 

655 0555 оббо OldAdr DEL e 

өза ж SHAPE & COLOUR TABLE 

ez ORG 2540 
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оба ж Shp.Colr,Shp,Eolr 

057 9549 @91B7C3E ShapeB DATA :00,.:18,:7С,:38 Top line of shape 
оз8 6544 @41B223B DATA :94,:1В,:22,:3В 

039 0548 O21B223H DATA  :92,.1B,:22,:3B 

949 OBAC FFiBSCSB DATA  s:sFF,s:1B,: 3C, 

еді 0559 Oo21B205B DATA ӨЗ,:іБ,:29, 





ва аз sa ne ов 








042 6554 G41B702H DATA :64,:18,:20,: 58 
2043 9558 еајв7озв DATA :90,:1B,:70,:3B 
044 2550 OO1BOO03B DATA :090,:1B,:00,:3B 
045 + 

одо 9568 ICSBOBFB DATA  :1C,:3B,:08,:FB 
647 O564 223BOBFB DATA : :ZB, : 98, : FB 
648 9568 29SBOSFB DATA :26,:3B,:08,:FE 
649 0560 1СЇБВӨВЕВ рата :1С,:1Б,:08,:ЕВ 
950 0570 @21BƏBFB DATA :92,:іБ,:98,:ҒВ 
851 0574 221B2ëFB DATA :22,:1В,:2А,:ЕВ 
052 0578 1С1В1СЕВ DATA :1C.:iB,:1C.:FH 
053 2570 ӨӨЇБӨВЕВ DATA  :00.:1B8,:08.:FB Bottom line 
оба ж 

ess esso END END 


Deleting a Mode 5/58 shape differs from the Mode 6/64 version: instead 
of putting 20 in both odd and even screen addresses, BET has to go into 
odd addresses and 8X6 into even addresses, where X is the Hex equivalent 
of the ist COLORG colour. 


USING THE раг:= SCREEN DRIVING РАСКАВЕ: 
When fast movement is not essential such as in drawing the static parts 
Of a picture the ROM calls for DRAW and FILL can be called from a 
machine language programme with an RST S instruction. The prior 
conditions for such calls are: 

Register A holds the colour number 

Registers B and C hold the two y co-ordinates 

Register pair DE holds one x co-ordinate 

Register pair HL holds the other x co-ordinate 
The programme below shows a typical example, including the prior loading 
of the registers. Note that co-ordinates, as used in BASIC are loaded, 
not screen НАМ addresses. If the values given form a diagonal of a 
rectangle as in the example, the RST 5 Data can be changed from #21 to 
424 to fill the rectangie with the colour given in А. 


001 s Example 3 DRAW А LINE/FILL ñ RECTANGLE 


eo2 ORG : 400 

ооз o400 SEO! MVI OCH Colour in ñ (Colour must 
бод + be in COLORG set for Modes 2, 4 and 6. 
905 0402 @614 MVI B, 2 Ca-ords: yl in B 

одо 0404 ФЕВС MV I C, 146 y2 in C 

997 6406 111400 LXI D, 6020 xi in DE 

eog өлө» 218Coo LXI H,146 x2 in HL 

доо 6460 EF RST = 

“ie өлөр 21 DATA :21 (:21-draw or :24—fi11) 
911 o4O0E CH RET 

912 олор END END 


There is also a ROM routine for placing a dot on the screen. It is 
useful when one wishes to draw lines by repeated use of the cursor keys. 
It is RST 5 Data HIE. The co-ordinates, up dated for each cursor key 
movement, have to be loaded prior to the RST call, y into register С, x 
into the HL pair and colour into А. 
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2 
10 REM %%% DESASSEMBLEUR POUR DNA ян 
20 REM МОМ А МР Py бр пу A A бр бр бу Pa Лу бу A; A; пр бы Лу Бр Лу А бу Му бу Фу бы 
30 REM 
32 REM --- by Di Marco Emmanuel === 
34 REM 
40 CLEAR 6000:RESTORE 
50 РОКЕ #131,1 
50 COLORT 8000 
70 MODE 0 
80 PRINT CHR$(12) 
90 DIM A$(255,0),A4(255.0) 
100 FOR XZ=0,0 TO 255.0 
110 READ A$ (ХЛ) ,AX (UL) 
120 NEXT XZ 
130 PRINT H Ay Py лу Ar бу Az Ar Ar ña ба бу Лу бу As Лу ду Pa лу бу Ar бу бы ту Ay Ай бү бу бү Ay би ту ли бү бү Лу Лу A, W Aa бу бу ME 
140 PRINT "444 DESASSEMBLEUR POUR DNA ASSEMBLEUR #44" 
150 PRINT "УУУУ 
160 PRINT 
170 INPUT "ADRESSE DE DEPART obj р " ADEPK: PRINT 
180 INPUT "ADRESSE DE FIN obj 5 "РАРІМА Е PRINT 
190 INPUT "ADRESSE DE DEPART Source (min 83000) : "3; ADR4:PRINT 
192 IF ADRACS3000 THEN 190 
200 PRINT CHR$(12); 
205 FLAG%=L 
210 B$=" START * 
220 GOSUB 2000 
230 ХїЗАРЕРХ-1 
232 (AAA 
234 IF X%>8FINZ THEN 320 
236 IF АВКХСВАРРО THEN 245 
258 PRINT 
240 PRINT "BUFFER FULL" 
242 8010 320 
245 DATZ=#=PEEK(XZ) 
250 B$=ñ$(DATX) 
260 GOSUB 2000 
270 IF AX(DAT4)=2.0 THEN 3000 
280 IF AX(DATZ)73.0 THEN 4000 
290 GOSUB 5700 
295 B$=CHRS$ (13) 
300 GOSUB 2000 
310 80848 5500 
315 8070 232 
320 B$=" END"+CHR$(13)+CHR$0174) 
330 80548 2000 
340 PRINT 
350 PRINT "FIRST ADDR FREE #"$HEK#(ADRY) 
360 PRINT 
370 PRINT "SELF TEST : RUN 10000" 
380 PRINT 
390 END 
2000 FOR T%=0 ТО LEN(B$)-1.0 
2010 POKE АрКХ,А50(М108(85,13,1)) 
2020 ADRXsADRE*1.0 
2030 NEXT TX 
2040 RETURN 
3000 Х151141.0 
3040 NA=PEEK (ХА) 
3050 80508 5000 
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2 D кооз CN 
4040 NXsPEEK (UL) 5040 БАТА Zo KE e EC ES 
4050 GOSUB 5000 6050 DATA " DCR ЧИМНЭ D,1",2," RAL",1," жа 
4080 XkeXk-1.0 8080 DATA " DAD D",1," LDAX D" l," DEK D",1," INR Е", 
| n NLsPEEK (NZ) 5070 DATA " DCR іі MVI DN " RAR" 1 ' DATA ut 
| AER ш 5080 DATA " LXI H,1",3," SHLD 1593 s INK H*,1,". INR Не! 
| 410 Khakiel. 8090 DATA " DCR H",1," MVI H,:*,2," DAA*,1," DATA :" 
| 00 8010 290 8100 DATA " DAD H",1," LHLD :",3," DCX H" [on e 
| 519 IF N4>15,0 THEN 5060 6110 DATA " DCR К MVI Li, SC d Ger : і, 
| K$z"Q" ANEIE (NX N 1" НУІ 1,2442) nr 18 
| ин ын Ёол 500) 8120 DATA " LXI SP,:",3," STA t",S," INX SP",1," INR М", 1 
| SC Sech SE г" " ОСА M",1," MVI Мү:",2," 8Тб",1,* DATA :",2 
| 5070 FOR UX=0 TO LEN(K$)-1 6150 DATA й DCR У E ТТІ КӘР EE 
| 5080 1 B$sMIDS(KS,UL,1) 8160 DATA " MOV GON "МОУ B Dei nen SCH ae н 
5090 1 СН 2000 8170 DATA " MOV DNA MOV SE MOV SE ноу Эм 
, 6180 DATA " MOV С,С",1,* MOV C,D", 1," MOV C,E*, 1," P 
5110 RETURN 6190 . МОНГ .... украина сн 
5500 IF DATZ=8C3 THEN 5570 6200 БАТА " ч ois M IE ROV SE Кај 55 
5522 IF DATZz4E9 THEN 5570 5210 DATA " MOV ОН MOV Doei, мом dE RN NN 
5523 IF DATY=#C9 THEN 5570 5220 DATA " MOV ЗИ мом ЭЭН бо о int ын | 
5560 RETURN 5250 ^ LP MA MA ee 
5570 FL8$=STR$(FLAG61) 6240 DATA А HOV GE Sen SE iN 2 ee 
5580 LEZ=LEN(FLG$) 6250 DATA " MOV КЕЛЕС MOV ИИК So 1223 s Ce 
5590 88351 6260 DATA " MOV ИИК MOV L,D*,1," MOV T NOV des 
5500 B$-"FLG" 6270 DATA " MOV L,L",1," MOV L,M*, 1," MOV LA" IO" 5 URP 
5610 TY$=MID$ (FLES, ORX, 1) 5280 DATA " MOV M,C", 1," MOV мурчу," M ) ut 001) 
СН IF TY$="," THEN 5670 6290 DATA " MOV M,L*, 1," HLT", 1," MOV ge ЭЛ à 
0 B$=B$+TY$ 6300 DATA " d " " “MOV дук" ЗЭЭ 
Ce SEENEN 410 БАТА * Ge Ne Cé MEUS hc A MOV di 
5650 ТЕ 08%>16% THEN 5670 6320 рата " ADD 05,115 ADD D" i "ADD E",1 Pa Жа тэй 
5660 8010 5410 6530 DATA н BDD | Зил EA ADD "эмэг ADD MA ADC д, 
5670 80SUB 2000 5340 DATA " ADC C",1," ADC р ADC ГЕ ADC n 
5680 FLAGY=FLAGY+1 6350 DATA " ADC L",1," ADG ни" ADC ТОС SUB Dr 
5690 RETURN 5350 DATA " SUB C",1," SUB D',1," SUB Е" 15" SUB H", 
5700 IF DATX-4C3 THEN 5900 8570 DATA " SUB L",1," SUB "RE 808 NA SBB pos 
5740 IF DAT4=#C2 THEN 5900 5380 DATA " 888 C^,1," SBB D',1," SBB E", 1," ne 
5750 IF DATY=HCA THEN 5900 6390 DATA " SBB L',1," SBB M",1," BBB "NE вий gelt 
5740 IF DATA=#D2 THEN 5900 6400 DATA " ANA C',1," ANA D', 1," ANA ESL,” ANA i^ 
5770 IF ВАТХ-йрА THEN 5900 5410 DATA * ANA ХН, ANA M*,1," ANA A",l1," XRA pe 
5780 IF DAT4=#E2 THEN 5900 5420 DATA " XRA КИК ХВА 09,1," ХВА Е",1," ХВА gc 
5790 IF ПАТХ=ЖЕА THEN 5900 6430 DATA " XRA L'",1," ХВА мері)" ва A*,1," ОВА pu 
5800 IF рАТХайР2 THEN 5900 6440 DATA " ORA C",1," ORA D*,1," ОКА E',1," ОКА pelt 
5810 IF DATZ=#FA THEN 5900 5480 DATA * ORA L',1," ORA Мері," ОВА Ait" C Sé 
5820 IF DATZ-&CD THEN 5900 6460 DATA " СИР КИК СМР OM СИР E", ly" qu PM 
5830 IF DATX=#C4 THEN 5900 5470 DATA " CHP SM CMP M*,1," CMP 4,1," RNZ" ү" 
5840 IF DAT%=#CC THEN 5900 8480 DATA " POP В",1," ЈА; ME JMP RN ENZ i" 
5850 IF DATYX=#D4 THEN 5900 6490 DATA " PUSH B*‚1,* ADI 1*,2," RST 0*,1," 21% 
5860 IF DAT4=#DC THEN 5900 6500 DATA * RET",L," JZ 1",3," DATA 1",2," ÜZ үл 
5870 IF DATA=#E4 THEN 5900 8510 DATA " CALL i" 3," ас! Ч 2," RST 1" 1," 8 й 
5875 ТЕ DATY=HEC THEN 5900 8520 DATA " POP D" l," INC :5,3," QUT 1",2," C сар 
5880 IF DATA=#F4 THEN 5900 6530 DATA " PUSH D',1," SUI 1",2," RST 28,1," Se 
5885 IF DATZ=#FC THEN 5900 6540 DATA " DATA EN JC езуін” d " рата 1",2 
bu “He 6550 DATA * SBI :*,2," RST 3*,1," RPO*,l," POP Не! эл 
~ bse . 8580 DATA " ЗРО 19,3," XTHL" 1," СРО :",3," PUSH H",1 
5920 BER T 380 МЕ o BL n n гээ 
и 19,3," ХОНӨ",1," СРЕ 18,2, p" 
200 ERA "ode В,:",3," STAK B",1," INK 87,1," INR B",1 5590 DATA У XRI 9,2," RST S",1," А POP PE". 
R B^,1," MVI B,1",2," RLC",1," DATA :",2 6500 DATA " JP :",5," DI",1," CP 1*,3," PUSH Р5Н",1 
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1000 КЕМ +++ DEMO 0018/0019/0020-05-00 " V1.2/1.0/1.2 
1010 REM +++ opbouwen statisch namenbestand 
1020 REM +++ zoeken in namentabel 
1030 REM +++ opbouwen dynamisch namenbestand 
1040 REM +++ DAI 
1199 CLEAR 5000 
1209 DIM XN$(9,4) 
1218 возив 31601 
1220 PRINT "Kies: Opbouwen statisch namenbestand 513" 
1259 PRINT " Opbouwen dynamisch namenbestand < 2 > "ss INPUT X 
1240 ТЕ ХО1 OR X>2 БОТО 1219 
1250 DN X 80508 31201,31203 
1409 ХР-Ө 
1500 PRINT "Naam ";XP41;" is "5 XNS(XP.0) 
1600 ХР-ХР-1:1Е ХР-10 THEN БОТО 2900 
1790 БОТО 1590 
2000 PRINT :PRINT :PRINT "Wilt U zoeken in het namen bestand < JA/NEE > "i: 
INPUT X$ 
2919 IF X$C»"JA" AND X$€»"ja" THEN PRINT :PRINT :60T0 17500 
2020 PRINT :PRINT “Welke naam wilt U zoeken s "S:INPUT X$ 
2030 GOSUB 31202:REM zoeken in namen tabel 
2040 IF XE-1 THEN PRINT :PRINT “Naam niet іп bestand":GDTO 17509 
2059 PRINT :PRINT ХЭ?" staat ор plaats";XP+15" in het bestand." 
2060 PRINT :PRINT 
17500 ЕМ) 
22000 НЕМ {HHHH DIDACOM 9018-95-09 HHHH 
22001 REM ЗННННЕ 
22002 REM HH opbouw statisch namenbestand ЗИННЫ 
22005 REM WRR gewijzigd voor didacom handboek һо.5 ##### 
22004 REM ННН versie 1.2 DAI - basic AUS 
22005 REM НЫНЕ 
22006 БОСОВ 31601 
22008 PRINT "НЕ OPBOUWEN NAMENBESTAND  ###":PRINT 
22009  XP=0:XE=0 
22010 PRINT " Naam "3ХРЬ-1:" ? "š: INPUT XS:PRINT 
22011 IF XE<>@ БОТО 22010 
22012 IF ХР-Ф AND LEN(X$)-0 GOTO 22010 
22015 ТЕ X$="EINDE"” OR X$-"einde" GOTO 22035 
22014 IF XP=0 БОТО 22019 
22015 FOR ХЇ-0 TO XP-1 
22016 1 IF XN$(XI,0)€2X$ БОТО 22918 
22017 1 PRINT " De naam ";X$;" komt reeds voor in het bestand .":60T0 22010 
22018 NEXT XI 
22019 XN$ (XP, духа 
22020 PRINT " Fasen 7 4% ІМРОТ X:PRINT 
22021 IF ХЕ<>9 БОТО 22020 
22922 XNM$(XP,1)=X$ 
22023 PRINT " Eerste opgave 7 "ss: INPUT X:PRINT 
22024 IF XE<>0 GOTO 22023 
22025 XN$ (XP, 2)=X$ 
22026 PRINT " Laatste opgave ? ";:INPUT X:PRINT 
22027 ТЕ ХЕС»В GOTO 22024 
22928 KNS CXP,3) -X$ 
22029 IF XN$(OUP,S)CXNS(OXP,2) THEN GOTO 22923 
22030 PRINT " Akkoord < JA / NEE > 7 "S:INPLT X$:PRINT 
22031 IF X$-"Jà" OR X$-"ja" THEN XP=XP+1: БОТО 22919 
22032 IF X$-"NEE" OR X$-"nee" GOTO 22019 
22033 БОТО 22939 
DAlnamic 37 56 DAICLIC 10 




















PAGE 22 --  МАМЕМВЕЗТАМО 
22034 REM einde 
22955 PRINT 
22938 RETURN 
22050 КЕМ ННН DIDACOM 9019-05-00 Spaas 
22051 REM iHHHH 
22952 REM Hitte zoeken in namentabel SHEER 
22053 REM ЯНННІ 
22954 REM #8998 versie 1.0 DAI - basic жет 
22955 REM Hitt 
22056 ХР=@:ХЕ=@ 
22957 IF XN$(XP,@)="“ THEN ХЕ=1: RETURN 
220958 IF XN$(XP,0)zX$ THEN RETURN 
22059 ХР=ХР+1:БОТО 22057 
22075 БЕН нн DIDACOM 9020-05-20 інно: 
22076 REM ЖЫНЫ 
22977 REM #8888 namentabel (dynamisch) НИНЕ 
22078 REM HH aangepast voor didacom handboek ћо.5 НН 
22079 REM {HHH versie 1,2 DAI — basic ЗӨННӨ 
22080 REM iHe 
22081 ХР=—1:ХЕ=@ 
22082 PRINT :PRINT :PRINT " Hoe heet jij ? "3: INPUT X$:PRINT 
22085 IF ХЕ<>9 БОТО 22082 
22084 IF LEN(X$)-0 БОТО 22082 
22085 IF X$="EINDE" OR X$="einde" БОТО 22106 
22088 FOR XI=9 TO 9 STEP -1 
22087 1 IF XN$(XI,9)=X$ THEN XP=XI 
22088 1 IF XN$(XI,0)-"" THEN XP-XI 
22089 NEXT XI 
22090 | XN$(XP,0)zX$ 
22101 PRINT " Akkoord (JA / МЕЕ) ? ";:INPUT X$:PRINT 
22102 IF X$="JA" DR X$="ja" БОТО 22196 
22193 IF X$-"NEE" OR X$-"nee" БОТО 22082 
22104 БОТО 22101 
22105 REM einde 
22106 PRINT 
22107 RETURN 
26005 НЕМ ZZZZZ scherm schoon 77777 
26006 PRINT CHR$(12);:RETURN:REM scherm schoon 
31291 GOTO 22005:REM opbouwen statisch namenbestand 
51202 БОТО 22056:REM zoeken іп namenbestand 
31295 БОТО 22081:REM opbouw dynamisch namenbestand 
51801 БОТО 269005:REM scherm schoon 
6610 DATA " ORI on 12)" RST 6",1," RM”, 1," У 
6820 DATA * IN 1*3," ЕГ" пре CN "үз," DATA 1312 ‚2 
5630 DATA " CPI ;",2," RST 78,1 
10000 X=#3000:PRINT 
10010 A=PEEK(X):PRINT CHR$ (А); 
10020 IF 82174 THEN PRINT :END 
10030 XzX*1.0 
10040 8070 10010 
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1 REM 1912 PRINT " 4HHHHHHHEER ава danst 
имЕИНН 088 она DH 
duas 

2 REM Paard 1913 PRINT "iHHHHHHHHHHER 88 HHHH 
iHHHHHHHHE PE PHERS ӨНӨӨ 

3 REM gun 

1914 PRINT "HHHH AHHHHHHHHHHRE 

4 REM Fred #8 dus HERH HER SHARE 

van Amerongen, 1985 зн" 

š REM 1015 | PRINT "ан 20277 
зненнннь ын Өвөр BER оны 
зн 

19 CLEAR 256:МОРЕ O:CLEAR 9000 1914 PRINT "iig нининининне 

22 DIM ҮТ(115.9,1.0),Г7(42.0) HERRER HAN ЗНННННЫНННН 

23 N$="@";X$="X":L$="L":R$="R" Р 

100 GOSUB 1090 1017 PRINT "инв анын НӨ 
#8 мини ЗННННННННННЕ 

200 НЕМ DRAW H 

1018 PRINT "ët 88 HEER 
ЭННӨӨНИ енер ӨР BRE 
205 X=0:L=115 HHR" 
210 FOR C=@ TO 42:COL=20+CT (C) : READ 1919 PRINT " 4HHHHHHHHHE е Р 
X1, YHS, D, YL$ НННННННЕ PEREDE GRESE mette 
212 1 LI-LEN(YH$) -1:XJzXI: XK«0 deep 
220 1 FÜR I=X TO X2L:YL-YT(1,0.0) YH= 1020 PRINT "  iHHHHHHHE HEEE ӨМНЫН 
1 YTO,1.0) AHHHHHHHHE gutt ыны ӨНӨ 
222 2 IF ҮшжҮН(20.0 THEN DRAW I+XD, iet 
2 YL I*XD,YH COL 1030 WAIT TIME WT:CURSOR 0,17 
224 2 IF І<ХІ OR I>XI+LI GOTO 249 1931 PRINT "iHHHHHHHHBE HAINE 
230 2  YHD$-MIDS(YH$, XK, 1) : YLD$- EAN EEE EST CT CSST 
2 MIDS(YLS,XK, 1) " 
232 2 IF YHD$-X$ THEN YT(XJ,1.0)=0: 1032 PRINT '"iHHHHHHHHHHE HE 
2  YT(XJ,0,0) -0:GOTO 240 RMS ЗНННННННЕ ЗНННННННННЕ 

234 2 IF YHDSCONS THEN ҮТ(Х4,1.0)- " 

2 YT(XJ,1, 0) -CASC YHD$) -#50) 1033 PRINT "iHHHHHHHHHHHE іннененині 

236 2 IF YLDSC>NS THEN YT(XJ,0.0)= IHHHHHHHHE GHHHHHHHHE. зөвөө 

2  YT(XJ,0. 0) + (ASC(YLD$) –#30) " 

240 2 KXJ=XJ+1:XK=XK+1 1034 PRINT "НЕ ӨННЫН 89 

249 NEXT: X=XI:L=LI NEXT denn анын ӨВ 88 

308 FOR I=#BFEF-300#99 TD яннинь n 

"BFEF-50490 STEP 180:РОКЕ 1,821: 1035 PRINT "анны 08 ЇЕ 
NEXT аннннынн BE SSSR тыны 

900 REM END PROGRAM 1936 PRINT "iHHHHHHHHHHHE 4HHHHHHE 
AHHHHHHHHE HHRHHHHHHHER 88. REREH 

991 BzBETC: G-BETC: G-GETC 1037 PRINT "iHHHHHHHHHHE 888 

902 G=GETC: IF 8-0 БОТО 902 знанні BREET зав 

999 COLORG 0 9 0 @:MODE O:CLEAR 256: dia vw 

END 1938 PRINT "iHHHHHHHHHE (HE 
AHHHHHHHHHHEHR ЗННННЕӨ 
1900 REM DISPLAY PROGNAME BEDAE " 
1039 PRINT "НН анын 
1082 PRINT CHR$(12):COLORT 9 1 9 0: вани: Bit ННН 
POKE #75, #20 зненеененні " 
1003 WT=S:FOR Ісі TO 5:0DSUB 1010: 1040 PRINT "iHi анна 
NEXT:GOTU 1099 |----· ан оннан PERRINE 
1010 МАІТ TIME WT:CURSDR 9,17 " 
1911 PRINT "  4HHHHHHHE HHHE HHH 1950 WAIT TIME WT:CURSOR 0,17 
IHHHHHHHHE өз (EUR ынны 
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PRINT 'iHHHER ЗННННЕ 80880 
THHHHHHHHE HEEREN ЗННННЫНННННЕ" 





19002 


10010 
19012 


10015 


19014 


19015 


19016 


19017 


19919 


10020 


10921 


10922 


10023 


19024 


10825 


19926 


1,5,0,2,1,3,2,0,1 

DATA 2,3,1,2,1,0,5,2,1,3,0,2,3, 
2,1,0,2,1,5,2,0 

DATA 39,40 

DATA 0,-17,-4,1,1,-4,1,1,0,1,-2, 
1,2,1,1,3,-%,0,1,1,0,1,8,-11,3, 
1,9,-4,1,9,6,-4,1,7,-8,2,0,0,3, 
9,1,2 

DATA 9,1,1,-8,-1,-3,0,-1,-1,-1, 
-4,-1,0,-1,0,9,0,0,0,-1,-1,-1,0, 
9,-1,0,-1,-1,-і,-1,-2,0,-2,-1,0 
DATA 0,9,-2,-1,1,0,1,1,1,1,0,9, 
9,9,0,9,-1,0,-1,9,0,9,0,-1,-1,0, 
9,9,1,9,0,2,0,-1,-1,0,-1,-1,6 
DATA 9,9, 1,9,9,0,9,0,2,0,9, 1,0, 
9,37,0,1,2,2,0,1,0,1,0,0,0,5,0, 
9,1,0,1,1,1,1,-3,6,1,1,-1,1,9,0, 
1,6 

DATA 0,3,0,-2,0,6,0,-1,0,0,3,0, 
0,-1,0,0,0,2,2,-1,0,0,-1,-4,3, 
-8,5,3,-2,-4,4,0,-1,0,0,0,-1,-2, 
1 


DATA 9,0,-1,-1,2,-1,0,-7,4,-1, 
-1,-1,9,-1,0,-1,-5,2,-1,-3,1,9, 
-1,-3,-2,9,-18,-2,-2,-1,-2,-7 


REM DELTA YH, YL 

DATA 1, 
"2332001112310111312111000111102 
11111322300111111000000111000011 
11210100210120001000000000100000 
209000009001 11000001" 

DATA 1, 
"1121111111322611111111330142423 
10121152211010000000000000000234 
44556678999990000000000000000000 
00999799731000000011" 

DATA 1, 
"5557008157300999915000000111102 
11225511100051110000000344000012 
15110300110440000200000000000000 
200000000001 14000000" 

DATA 1, 
"9311533494413017878781150000003 
30101121470000000000000000000000 
90000000000000000000000000000000 
00000000000000000009" 

DATA 1, 
"0000110000012000000122221111011 
00050000012500000012225213112200 
01002312453101222441123911292929 
39299291141900999998" 

DATA 1, 
"0000000000000100003003002192111 
98011050051221121122411111111111 
11111111000004599999911310190216 
22000000999962532210" 

DATA 1, 
"1111992111110000023200000100100 
1110111:3100011320000000000000011 








1052 PRINT "НЕ PERRE dHHHHHHBE 
JHHHUHHHER. знане (bieten " 
1055 PRINT "тыны ыны нинен 
НННЦННИН ЗИННННННН анин 
1054 PRINT "iHHHHHHHHHHHE HARE 
зно HAER Se HERES у. 
1855 PRINT 'iHHHHHHHHHHHE HE 88888 
Ей MEER ӨННЫННН ФВНННЫНЫНр " 
1956 PRINT "ЗИНННННИНН ИН Sp оя 
ЭННННННННЕ ЭННННННННЕ ЗННННННЬ 5 
1057 PRINT "ӨНӨӨ BER MIRE 
знененнні PEHEE d al 
1058 PRINT "HERRE ЗМНЫН IEEE 
HEHHE IHHHHHHHHHHE ЗИННННННН е 
1959 PRINT "ава HEER ЗӨМННЫННЫ 
ан HUREN ван HEEREN 
1980 PRINT "ан анны знане 
HEEE PERRE ЗННННЫНЕ ЗИНННННННННЫ 
1970 WAIT TIME WT:CURSOR 0,17 
1071 PRINT "iHHHHHHHHHE HAN 
THHHHHHHE: ЗННННННННЕ ЗИННННННИН " 
1072 PRINT "iHHHHHHHHHHE HAER 
THHHHHHHEHE: HIERAAN EE 
1975 PRINT "iHHHHHHHHHHHE IHHHHBHHIUE 
THHHHHHHHE: HEHEHIHHHHBE ЗНННННИННН 
1074 PRINT "iHHHHE BEKER 68 ыны 
HE GHHHHE HE анны ЭН НЫНЫ" 
1075 PRINT "iHHHHE HERRE HR ынны 
28 GHHHHE HR HRE бро ЯНЫН” 
1976 PRINT "ЧИНННННЫННЫН ЗӨННИННН 
THHHHHHHHE HHHHHHHHHE а інно 
1977 PRINT "iHHHHHHHHBHE ЗННННННННЕЕ 
THHHHHHHHE ЗНВВНННЕН SER ЗИННЫ 
1078 PRINT "iHHHHHHHHHE HERLAER 
ЗИНННЫНЫНЫ RARR ЗИННННННННН" 
1079 PRINT "ЯН анын анын 
W HRE 498 IHHHHE ЗННННННННН 
1980 PRINT "НЕ HEREN тыны 
ян HHHH SR зве ЗНННННЫН " 
1999 RETURN 
1099 CURSOR 42,5:PRINT "Гудті "85" 
1199 REM INIT СТУ AND YTX 
1192 FOR C=9 TO 42:READ CT(C):NEXT 
1110 READ YL, YH: YL=YL+100: YH=YH+100: 
XD=109 
1112 FOR Х=0 ТО 115:READ YLD:YL=YL+ 
YLD:YT(X,0.@)=YL:NEXT 
1114 FOR x=@ TQ 115:READ YHD:YH=YH+ 
YHD:YT(X,1.@)=YH:NEXT 
1116 COLORT 9 0 0 O:PRINT CHR#(12) 
1118 COLORG 15 14 10 6:MDDE 4: COLORT 
вове 
1199 RETURN 
19992 REM PAARD DATA 
10001 DATA 1,8,2,1,0,2,1,0,3,2,1,0,2, 
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11119100100190001011809800000000 











13111922234599949299918876245419 


5-22. 


хани З 





90000000000000000000000000000000 
999992" 





10100001900200000000000005271112 
xo" 








99900000090215099001" 991011191" 

10027 рата 1, 10959 DATA 12, 
"1111112103311111111110122100001 "0001000001001410875313001100010 
52111111131010000000000000000000 02111110321122011111111111111111 
0000000011455990000000000000000Ь 21111000199999999999919999600108 
99999999900000010000" 998222119" 

16028 ТАТА 5, 10044 DATA 13, 
"881731325999999444442222011122%8 "100000000000201010002501 1000000 
121115599990094351112514412022100 000000000100000000000009200501001 
12151100032321001310421020302040 д0000000000000202000400005345120 
9201112166909009" 99511100" 

10029 DATA 5, 19041 DATA 13, 
"9144144411010111015040012110110 “1205112202101122011101103111121 
01112112300000000000000000000000 90000000000000000000000000000001 
90000000000000000411111031300000 90097774100000000000200901231140 
0000090011103349" 00010000" 

10038 DATA 5, 19942 DATA 13, 
"0000000000000000000000001010540 "0889194578997703015699510105403 
42020010011100002330342311212112 00000000001100111121112020000000 
11094200881 1001140500819295959597 90000000000000000000000000000000 
2959900009290290" 0000001" 

10031 DATA S, 10045 DATA 13, 
"0000000010201313:310401401057001 “2520125252220001125151010011709 
16003000000000000000000000000000 54300000100000000000000000000000 
90001111100145989919979991990000 000000000000000000000000000009000 
0000589732423210" 0121216" 

10032 DATA 6, 10044 ФАТА 13, 
"ӨХ21ХХ2100000022222111101120150 "0011000000000010110000001201100 
11111000000001000019100000000001 00000000000100010324221110101001 
01100000000000020100001025404424 00000000000799999552900003225985 
957011140745700" 0011129" 

19035 DATA 6, 19945 DATA 15, 
"1X21XX1011100100039132321211119 "0001000000121420033409705242011 
11131113000000000000000000000000 12000000200000000000000000000001 
00000000218999100000000000018137 00001101199999999999999999111112 
797770000000100" 9912210" 

10034 DATA 12, 19945 DATA 14, 
"2399999999999111110905597715105 "1191010000022021111001001000000 
00000000000102021121212110100100 00000000020000112000001000000000 
дд000000000000100000000000000002. д000д000000000000000000020045299 
210000004" 911111" 

19035 | ДАТА 12, 19047 DATA 14, 
“5220122211541001001290110011112 "1201121211001111000122111005010 
27000000000000000000000000000000 25000000000000000000000000000000 
00000000000100000010000000000000 20000594000000000000000001111150 
012112259" 990001" 

19035 DATA 12, 19048 DATA 14, 
"000000000000000000000000000000ө "0000000000000000000000150951125 
19999999997004400000000000000051 533445315904133000101900111121355 
21111954502094000000000000000000 18942569542000001110141701200000 
900000000" 900000" 

10937 DATA 12, 10949 DATA 14, 
"Q000000000000000000000000000000 "00000060000000000000000000000004 
99551239782252922211111111222883 90588994894618888725995544514113 
13000000000000000000000000000000 78341000000000000000000000000000 
900000000" 990000" 

10058 DATA 12, 19950 DATA 14, 
"0000000000000010201140000001121 "0447259988989590099989008000000 
20000000004111131321122201122011 000000000020000001901021000000000 
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18851 DATA 14, 10065 DATA 17, 
"33353131423411502675001036187990 "11Х200011100011ХХ1111110200Х008 
53000000000080000000000000000000 20020011001000100501120052010000 
ОРОМО аны 90001030000000000000000101111110 

2147" хе" 

19952 DATA 14, 10084 DATA 17, 
"10000X0000000001200000111012256 "00Х000110000000ХХХ200001014Х292 
42122224140113223021155321221433 00000000000000210000001011150200 
55091990941299992723449353273700 0301404500250000000000000191111" 
11199" 19085 DATA 17, 

10053 DATA 14, "00X011200111100XXX000000100X110 
"600000X0010000023000230702020013 90031021000000000001160027000000 
90100001503111111101102322131111 0000101000000700800001999111111" 
22111204499999999999999991131311 19066 DATA 17, 

99751" "Q0X000000000000XXX000004007X900 

10054 ЮАТА 16, 00000002035200002611110212330312 
"211X111200020000011000000001110 00010:301450214431222Y4311300000" 
090000040000005002000001000002200 19067 DATA 17, 
90000000000000000000000000499411 "QeoX000000000000X XX000000505X950 
109" 09201187250240081097991302379199 

10055 DATA 16, 88294:303423341312121X2000000000" 
ч221Х121111111021110111110000052 10968 DATA 17, 
01000020000000001000000000000000 "00х000х00000000ХХХх900000000Х004 
21507470000000000000000111313120 00000000000000110000001000000000 
900" 9200000000:3000000000Y0000051111" 

10056 DATA 16, 10089 DATA 17, 
"000X000000000000000010730110000 "00X001X00300000XXX000000000X000 
21124407932347410241113312110011 90000101050330085000000010001000 
10200303510100414132032222000000 90000010000000000000X0000111111" 
909" 10070 DATA 17, 

19057 DATA 16, "Q0X000X00000000XXX00000100XX151 
"ддох000000000000000000000004900 000000010111002011212804815510044 
001540050119%90209915455115351034 90010202881X49363243XXXXXX111" 
90090000000000000000000000000000 10071 DATA 17, 
ддд" "0@9X000X00009000XXX00009020XX060 

16958 DATA 16, 90101190100000003901006262115190 
"000X000000000000000010110220000 11103114312X22111211XXXXXX111" 
12321101111112621112192712110011 10072 DATA 17, 
54954949314957131452745521100111 "00X000X000009000X XX090000000XX003 
183" 00000005054500000002010002200544 

10059 DATA 16, 90000000120X00000000" 
"000X000022310020200202000001100 19073 DATA 17, 
00241010055000001011011125010111 "00X090X900009000XXX900000090XX090 
11112115458717982956449919111317 90000000500000000000001500100000 
909" 90000000000X00000000" 

19969 DATA 17, 19074 АТА 25, 
"36X5114499955569X91990510111366 "5Х4489ХХХХХ75Х9021ХХ2Х02299979Х 
90000700000000000000000000051000 XXXX3100049010900350533332504010 
90040300000000000000000000000000 900X00000000" 

ХЭ" 10075 DATA 25, 

19961 DATA 17, "4X5111XXXXX17X1304XX0X75034416X 
"14Х5211005158918Х7010819290Х855 ХХХХ2955520000000000000000000000 
20003005000007000000000000000000 @90X99900000" 
90000000000000000000000000000002 19874 DATA 25, 
хе" "ӨХӨӨӨӨХХХХХӨӨХӨ2ӨӨХХӨХӨӨӨӨӨӨӨӨХ 

19062 DATA 17, XXXX001210110001100200000324230X 
"21X212011101111XX0131110100X122 201X10X214" 
11543050500010312200002011101100 18877 DATA 25, 
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10078 


10079 


10080 


19081 


19082 


19083 


19084 


10985 


19086 


19087 


10088 


19989 


19090 


19091 


19092 


10093 


19694 


"0X0990XXXXX00X0010XX1X00800080X 
ХХХХ000000539810125929995111215Х 
121X11X111" 

БАТА 25, 
"0X0000XXXXX90X01X3XXXX600100900X 
ХХХХ011110141202153122142115342Х 
ӨТУГЕ 

DATA 25, 
"3X0110XXXXX32X2@X0XXXX11111797X 
XXXX600000070123754429221332711X 
XXXX2XX11" 

БАТА 27, 
"1100XXXXXO1XOO0NOXXXX09210000YXX 
XX100010000044310800000000000XXX 
XX@XX09" 

DATA 27, 
"1011ХХХХХ19Х11Х1ХХХХ00010101ХХХ 
XX003002800000160000000010000XXX 
ххеххед" 

DATA 27, 
"0000XXXXX00X00X6XXXX00000000XXX 
XX000000010000000057800020202XXX 
XXXXXX1" 

DATA 27, 
"ӨӨӨӨХХХХХӨӨХӨӨХӨХХХХ15900900ХХХ 
ХХ000000012597001211111101011ХХХ 
XXXXXX1" 

DATA 36, 
"ЗХХ2ХХӨХХХХЗ0112289ХХХХХХХӨд000 
02111102300011105010XXXXXXXXXO" 
DATA 36, 
"ӨХХӨХХӨХХХХ59104110ХХХХХХХ82200 
00000000000000000400XXXXXXXXX@" 
ФАТА 47, 
"10021110XXXXXXX3320210000010011 
111013X51" 

DATA 47, 
"14213132XXXXXXX00000011012211446 
451111X12" 

DATA 47, 
"Q0000000YXXXXXX1020300000032000 
04721XX25" 

DATA 47, 
"02000000XXXXXXX0000001071092100 
01110XX12" 

DATA 47, 
"$000000QXXXXXXX3110200000011000 
01111XXX3" . 

DATA 47, 
"01000000XXXXXXX0000000010015700 
01430XXX6" 

DATA 47, 
"05200000XXXXXXX0000010012200X00 
00209" 

DATA 47, 
"00100000XXXXXXX0000585104101X30 
60000" 

DATA 48, 
"Ө47ХӨХХХХХХХХХХХХХХХХХӨЛӨХ2Х497 
5X24" 











19075 


19996 


19997 


10098 


10099 


10199 


19101 


10192 


19125 


10198 
10199 


19999 





DATA 48, 
"S@2X1XXXXXXXXXXXXXXXXX@@9X4X411 
9Х53" 

DATA 49, 
"OXXOXXXXXXXXXXXXXNXXXAO2X0X0000 
хөд" 

DATA 49, 
"“SXYX2XXXXXXXXXXXXXXXXX073X8X0016 
хөд" 

DATA 49, 
“ЗХХӨХХХХХХХХХХХХХХХХХ216Х07 
DATA 49, 

"ӨХХӨХХХХХХХХХХ!ХХХ! ХХӨӨӨХӨ" 
DATA 49, 
"ӨХХӨХХХХХХХХХХХХХХХХХХӨӨ" 

DATA 49, 
“ӨХХӨХХХХХХХХХХХХХХХХХХЗӨ9" 

DATA 49, 
"ФХХӨХХХХХХХХХХХХХХХХХХӨӨ" 

DATA 49, 
"ӨХХӨХХХХХХХХХХХХХХХХХХА2" 

DATA 0,"X" 

DATA 0,"X" 


REM EN! DA!A 















































НЕМ IMP INT 

CLEAR #7FFF:MODE O:COLURT 8 9 8 B:FABESZ=2:LINESZ=9; Cé=CHRS (H) 
FOR IX-1 TO &@:L$=L$+CHR$(95):NEXT 

DIM A$(PAGESX,L INESX) , ВФ (L INES%) 


26 REM 8%(9,9)-а 10x19 matrix of strings. This can be expanded as desire 


d 

48 PRINT 
зе PRINT 
66 PRINT 
89 PRINT 
зә PRINT 
188 | PRINT 
n the" 

129 PRINT 
149 Б050В 
158 50508 
179 DN GZ 


СФІРОКЕ 4BF59,485A:PRINT ТАВ(#С);"МОТЕВООК" 

ІРКІМТ "This program allows you to create a number of notebook" 
"entries and save them on tape":PRINT :PRINT 

"There are ten pages (numbered 8-9) which can be used and" 

"up to ten lines of notes can һе entered оп each page." 

SPRINT :PRINT "There is also a facility to search for entries i 


"notebook currently in memory.":PRINT :PRINT 

20000:REM SPACEBAR? 

2000:КЕМ MENU 

GOSUE 11900,12000,12000,14000,15000,16000, 18000, 17908: 5070 140 


1999 REM MENU:RETURN WITH G-ÜPTION 
2000 COLORT 8 O ЯС HC:PRINT C$:POKE #BF67, #6А: РОКЕ #БЕЕ2, #СВ:РОКЕ #BFEE,#C 


t 

2016 PRINT 
2938 PRINT 
2040 PRINT 
2050 PRINT 
2050 PRINT 
2070 PRINT 
20898 PRINT 
2085 PRINT 
2990 PRINT 
2100 PRINT 


TAB(2); "OPTIONS AVAILABLE":PRINT :PRINT :PRINT 


"To make an entry on a particular page........... 15 
"Тө delete a раце......... RETER REEERE EEEE 22" 
"Та display а particular page....... "............3" 
"То search for a given word on a page............ 4" 
“To load а new notebook from pio PP 5" 
"То save this notebook on %аре,................... 6" 
"To transfer one page to another in entirety.....7" 
"To end the рғодгат.................... ..........." 


:PRINT TAB(#D); "Press a key (1-8)" 


2116 BA=GETC:IF GAC#31 OR 8204058 GOTO 2110:G-GZ—420:RETURN 
19999 REM MAKE AN ENTRY 


11009 PRINT 
11020 INPUT 
SPRINT 


C$:FZ=0:PRINT "TEXT ENTRY" 
"Enter the page number upon which you wish to make an entry" РА 


11030 IF PX<0 OR PA>PAGESZ THEN PRINT "Мо such раде":БОТО 11020 


11949 PRINT 


L$:PRINT "Page Mo.":PZi:FDR 17-0 TO LINESX:IF АФ (PX,1Z)="" GOTO 


11270 

11080 IF FZ-6 THEN PRINT " already contains":FZ=1 

11885 PRINT Мапе ГІН" "ЗАВҮРХ,ЇХ) 

11090 NEXT:PRINT :PRINT L&:FOR 1%=6 ТО LINESZ 

11120 PRINT "Enter line no.”51X%;° "52 INPUT AS (РУ, IZ): PRINT :NEXT 
11140 PRINT L$:PRINT "Page Full":GOSUB 26009: RETURN 
11999 REM DELETE A PAGE 

12000 PRINT C$:PRINT "PAGE DISPLAY" 
12010 INPUT "Enter the page that you wish to delete"iPZ:PRINT 
12015 IF PZ<@ OR РХОРАВЕВУ THEN PRINT "Мо such раде": БОТО 12010 
12020 FOR 12-0 TD LINESZ:AE (РУ, Т) =" "2 NEXT 
12030 PRINT :PRINT "Page "3РХ:" now deleted. ":505ИВ 20000: RETURN 
12999 REM DISPLAY 

13999 PRINT C&:INPUT "Which page do you wish to display"sP4: PRINT 
15020 IF Pie OR РХОРАВЕВХ THEN PRINT "No such page":GÜTU 15010 
15856 PRINT L$:GOSUB 20000:РКІМТ C&:PRINT TAB(28); "PAGE": PX 
13959 PRINT L&:FOR IX=6 ТО LINESZ:PRINT "пет "РАФ (РИ, IL): NEXT 
15090 PRINT LS$:80S8UB 20000: RETURN 

15999 REM SEARCH 
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18010 PRINT “Position the tape so that there іс a free area to save" 


14008 PRINT C$:KZ=9 i 16020 PRINT "this notebook on. Then when you are ғғайу......" 
14019 PRINT "Та search through files the normal procedure is to" 15030 GÜSUB 20000:РКІМТ L$:PRINT "Enter the name under which you wish to sa 
14028 PRINT "use a key word, and test if the letters of the keyword" ve this file"; 
14030 PRINT "can be found in the database" 15040 INPUT F$:1F F$-"" THEN CURSOR 55,16:G0T0 16046 
14040 PRINT :PRINT "For this program capital letters are ignored in both" 16859 PRINT :PRINT "If all is ready then"::G0SUB 20000 
14950 PRINT "the input, and the comparisons." 2 18088 PRINT "Now saving ";F$:SAVEA ñ$ F$:PRINT L$:PRINT "Save completed"s:G 
14060 PRINT :INPUT "Enter your keyword"; K$ DSUB 20000 
14070 IF K$-"" THEN CURSOR @,CURY+1:G0TO 14080 15079 REM SAVEA WILL SAVE A STRING OR NUMERIC (INT/FET) 
14075 PRINT :PRINT :А2%=КФ:Б080В 14900:К%-01% 16080 REM ARRAY ONTO TAPE AND WILL OF COURSE OPERATE THE 
16999 REM CASSETTE MOTORS. THE FILE TYPE ON CHECKING IS TYPE 
14485 REM A*$(PAGES,LINES) HOLDS DATA 16190 REM 2 AND THE МАМЕ IS GIVEN IN THE SAVE COMMAND AFTER 
14486 FÜR Tip TO PAGEGZX:FÜR 24-0 ТО LINESZ 16119 REM THE ARRAY NAME. NOTE THAT THE COMMAND ABOVE 
14495 02$-0$(0IX,JX):1F А2%-"" GOTO 14510 16129 REM SAVEA A$ F$ REFERS TO THE STRING ARRAY АФ (NOT ANY 
14500 GOSUB 14900:0$-K$:B$-014$:G605UB 14700 16138 REM SIMPLE VARIABLE ñ$) BUT THE SIMPLE VARIABLE ЕФ 
14618 МЕХТ:МЕХТ:РЕІМТ :PRINT КХ:" occurrences of keyword ";K$:80SUB 20000:К 16140 REM FOR THE NAME. IF THIS IS NUT INCLUDED THEN THE 
ETURN 
14700 LNBX-LEN(BS)-1:LNAZ-LEN(AS)-1:1F LNAZ>LNBZA THEN RETURN 
14719 FOR AX=0 TO LNBY-LNAL: IF MIDS(BS, AZ, LMAZ+1)=A$ THEN 14750 16154 REM ARRAY WILL BE SAVED UNDER ñ "NULL" NAME I.E. "" 
14730 MEXT AX:RETURN 16169 REM ALL THE ELEMENTS DF THE ARRAY ARE SAVED INCLUDING 
14750 PRINT "Match fpund-Page";IZi",Line":JZ;" " 8178 REM EMPTY STRINGS BUT AS THESE ARE ONLY ONE BYTE IN 
14751 KZ=KZ+1:RETURN 16186 REM LENGTH THEY DO NOT TAKE UP ТОО MUCH TIME OR SPACE 
14899 REM CONVERT TO CAPITALS 18199 REM AS YOU KNOW THE CASSETTE IS 500 BAUD WHICH IS 75 
14900 Al$-"":FÜR АЗУ=0 TD LEN(A2$)-1: M'L-ASE (MIDS CA25, АЗУ, 10) 16299 REM CHARACTERS PER SECOND 50 255 EMPTY STRINGS WOULD 
14920 IF A4Z>460 AND A4Z<87B THEN А41-441-820 | 16216 REM ONLY ADD THREE SECONDS TO THE SIZE OF THE FILE. 
j 14930 A1$-A1$4CHR$ (A47) s NEXT: RETURN 158220 REM NB A NUMERIC ARRAY OF SAY 100 ELEMENTS WOULD ALWAYS 
| 14999 REM LDAD 16239 REM BE THE SAME LENGTH AS EACH NUMBER ALWAYS OCCUPIES 
р 15000 PRINT C$:PRINT "LOADING A NOTEBOOK FROM ТАРЕ" 16248 REM FOUR BYTES BUT A STRING ARRAY OF 199 ELEMENTS COULD 
| 15020 PRINT :PRINT "Position the tape so that the next file is the notebook 18250 REM HAVE DIFFERENT LENGTHS ON TAPE AS THE ACTUAL 


18259 REM LENGTH OF EACH ELEMENT IS DIFFERENT, 


| 15030 PRINT "ta be read in - having previously been saved by this program" 16390 RETURN 
| 15040 PRINT L$:GOSUR 20000:PRINT L$:PRINT "Enter the notebook name or if по і 16999 REM END 


| t known, just press RETURN" 17000 PRINT C&:PRINT “Re-entry will destroy any pages in memory" 


: 15059 INPUT F$:REM TYPE 2 FILE МАМЕ 17819 PRINT "По you still want to end the program? Type Y or N" 

| 15085 PRINT :PRINT "I£ you are now ready";:BOSUB 20000 17920 BZ=GETC:IF 87 IOR #20=#4E THEN RETURN 

| 15067 IF F$-"" THEN LOADA 4% :REM NO NAME 17940 IF БХ IOR 429822479 БОТО 17026: PRINT :PRINT :END 

| 15088 IF F$»"" THEN LOADA 8% F$:REM F$ IS МАМЕ 17999 REM TRANSFER FROM ONE PAGE TO ANOTHER 

А 15070 REM NOW THE TAPE FILE HAS BEEN LOADED INTO 18909 PRINT C$:PRIMT "TRANSFER ONE PAGE ONTO ANOTHER" 
15075 REM THE PREVIOUSLY EMPTY 8% ARRAY. IF THE 18616 INPUT "Which page do you want to сору"зРХ 
15080 REM ARRAY PREVIOUSLY CONTAINED АМҮ ENTRIES 18028 IF РУСО OR PX-PAGESZ THEN CURSOR CURX,CURY-1:G0T0 180190 
15090 REM THEN THESE WILL ALL HAVE BEEN WIPED OUT 18050 PRINT : INPUT "Which page do you want it transferred to";P17Z 
15190 REM BY THE LOADA COMMAND. THE LOADA COMMAND AUTOMATICALLY 18055 IF РЇХЄӨ OR РЇХОРАВЕВХ THEN CURSOR CURX,CURY-1:GÜ0TO 18055 
15119 REM OPERATES THE TAPE SWITCHES, AND IGNORES TYPE 2 18040 FÜR 17=0 ТО LINES4: A$ (PIX, I2) АФ (PA, IX) S NEXT 
15126 REM (BASIC PROGRAMS) AND TYPE 1 (BINARY FILES) FILES. 18045 PRINT :PRINT "Раце”:РХ:" has been copied onto Раде":РЇХ 
15130 REM IF THE LOADA COMMAND IS FOR A STRING ARRAY THEN 18950 PRINT L$:GDSUB 29000: RETURN 
15148 REM A NUMERIC ARRAY WILL PRODUCE A "TYPE MISMATCH? 19999 REM SELF EXPLANATORY 
15159 REM ERROR AND VICE VERSA. IF THE ARRAY ON ТАРЕ IS 20000 PRINT :PRINT "Press spacebar to continue":CALLM #D4DA: RETURN 


15160 REM SMALLER THAN THE DIMENSIONED ARRAY THEN THE 
15176 REM EXCESS ELEMEMTS (IN THE PROGRAM) WILL REMAIN 








15180 REM EMPTY. IF THE ARRAY ON TAPE IS TOO SMALL THEN THE 
15190 REM EXCESS ELEMENTS ARE LOST, BUT I DON'T THINK ANY 
15200 REM ERROR MESSAGE IS GIVEN. I DONT KNOW ABOUT SAVING 
15210 REM ЕРТ ARRAYS AND LOADING INTO INTEGERS — TRY IT AND 
15220 REM LET ME KNOW. IF THE NAME GIVEN IS NOT EXACTLY RIGHT 
15250 REM THEN THE ARRAY WON'T LOAD BUT A CALL WITHOUT А NAME 
15240 REM WILL LOAD ANY STRING TYPE 2 FILE. AS IN BASIC LOAD 
15258 REM AND LOAD "NAME". 

15500 PRINT :РКІМТ "File";:1F F$2"" THEN PRINT " "ЕФ 

15520 PRINT " now loaded.":PRINT Lé:GOSUR 26000:RETURN 

15999 КЕН SAVE 

15000 PRINT C&:PRINT "SAVING THIS NOTEBOOK DN ТО ТАРЕ" 
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